Python. дана непустая последовательность целых чисел, оканчивающаяся числом 100. необходимо определить, есть ли в последовательности число 77.

program spos;

uses crt;

var

numb: array [1..100] of byte; // для последовательности чисел

i,f: integer; //счетчик и переменная в качестве флага

begin

randomize;

f: =0;

for i: =1 to 100 do numb[i]: =random(101); // задает последовательность

for i: =1 to 100 do

begin

write(',',numb[i]); // вывод на экран последовательность(можно удалить)

if (numb[i]=77)then f: =1; // в случае удачной проверки f: =1, в противном останется 0

end;

if f=0 then writeln('yes') else writeln('no');

end.

program spos;

uses crt;

var

numb: array [1..100] of byte; // для последовательности чисел

i,f: integer; //счетчик и переменная в качестве флага

begin

randomize;

f: =0;

for i: =1 to 100 do begin

numb[i]: =random(101); // задает последовательность

write(' ',numb[i]); //вывод на экран, можно удалить

end;

writeln;

i: =0;

repeat

i: =i+1;

if (numb[i]=77)then f: =1; // в случае удачной проверки f: =1, в противном останется 0

until i< 100;

if f=0 then writeln('yes') else writeln('no');

end.

n = 0

x = false

print('вводите числа по очереди')

print('чтобы закончить введите 100')

while n ! = 100:

    n = int(

    if not(x) and (n == 77):

        x = true

if x:

    print('в последовательности есть число 77')

else:

    print('в последовательности нету числа 77')

#include < iostream> #include < conio.h> using namespace std; int main() {   setlocale(lc_all,"russian");   int lep;   cout < < "\t\tчетное/нечетное кол-во лепестков у ромашки\n\n" < < endl;   cout < < "введите, сколько будет лепестков у ромашки: \n";   cin > > lep;   if(lep%2! =0) {     cout < < "у ромашки не четное кол-во лепестков! " < < endl;   }   else {     cout < < "у ромашки четное кол-во лепестков! " < < endl;   }  _getch();   return 0; }

Программа на языке паскаль. const n=30; var i, s0, k, a: integer;       b: array [1..n] of integer; begin       readln(a);       s0: =0;       k: =0;       randomize;       for i: =1 to n do       begin b[i]: =random(20001)-10001; {чтобы диапазон случайных чисел был от -10000 до 10000}                 if (b[i]< 0) then s0: =s0+b[i];                 if (b[i]> 0) and (b[i]< =a) then inc(k);       end;       if (s0< > 0) then writeln(s0, ' - сумма отрицательных чисел')       else writeln('отрицательных чисел нет');       if (k< > 0) then writeln(k, ' - количество положительных чисел, не превосходящих числа а')       else writeln('положительных чисел не превосходящих числа а, нет'); readln; end.