Перевести з Pascal в Python очень нужно задача Дано n действительных чисел. Если ли ета последовательность растущей? var i, n:integer; f:boolean;a1, a2:real; begin f:=true; read(n);read(a1); for i:=2 to n do begin read(a2); if a2<=a1 then f:=false; a1:=a2; end; if f then writeln('yes')else writeln('no'); end.

f = True

n = int(input())

a1 = int(input())

for i in range(2,n):

   a2 = int(input())

   if a2<a1:

       f = False

       a1 = a2

if f:

   print('Yes')

else:

   print('No')

1)

program fantscrin;

var s:string; i, plus, minus:integer;

begin

   write('Введите строку:'); readln(s);

   plus:= 0;

   minus:= 0;

   for i:=1 to length(s) do

   begin

       if s[i] = '+' then plus := plus + 1;

       if s[i] = '-' then minus := minus + 1;

   end;

   writeln;

   if plus > minus then for i:=1 to plus do

                           write('+')

                   else if plus < minus then for i:=1 to minus do

                                               write('-')

                                        else write('Кол-во знаков одинаковое!');

end.

2)

program fantscrin;

var y,x,b,e:real; i:integer;

begin

   write('Введите число b:'); readln(b);

   e:= 2.7;

   x:= 0;

   writeln;

   writeln('   y    |   x   ');

   writeln('');

   while x <= 10 do

   begin

       if x < 3 then

                begin

                    y:= Exp(x * Ln(e)) + 1 / (x + 1);

                    writeln(y:6:5, ' | ', x:6:5)

                end;

       if x = 3 then

                begin

                    y:= Sin(x) + sqrt(x);

                    writeln(y:6:5, ' | ', x:6:5);

                end;

       if x > 3 then

                begin

                    y:= Cos(x) + Abs(b);

                    writeln(y:6:5, ' | ', x:6:5);

                end;

       x:= x + 0.5;

   end;

end.

uses crt;

const raz=[' ','.',',','?','!'];{/разделители слов, можно добавить}

var s,sl:string;

   i,k:byte;

begin

clrscr;

writeln('Строка:');

readln(s);

writeln('Слово:');

readln(sl);

k:=0;

for i:=1 to length(s) do{идем по строке}

if(s[i]=sl[1])and((s[i-1] in raz)or(i=1)){если символ равен первому символу слова

а перед ним разделитель или начало строки}

and((s[i+length(sl)] in raz)or(i+length(sl)=length(s))){и после слова разделитетль или конец строки}

and(copy(s,i,length(sl))=sl){и все буквы на интервале равны слову}

then k:=k+1;{считаем}

write('Слово ',sl,' встречается ',k,' рз.');

readln

end.

Объяснение:

на каком языке? (В ответе паскаль)