Задание 5. Циклы.По каналу связи передается последовательность положительных целых чисел, все числа не превышают 500, их количество заранее неизвестно. Каждое число передается отдельно. Признаком конца передаваемой последовательности является число 0. После числа 0 передается контрольное значение – наибольшее число, которое можно получить умножением двух различных элементов последовательности.Напишите программу, которая получает последовательность чисел и следующие за ней признак конца и контрольное значение. Сюда нужно вставить ссылку на Вашу программу, написанную в любом онлайн редакторе кода языка Python с расширением .py Обращаю внимание! Каждая строка программы должна быть прокомментирована.

а) var a:array[1..3] of integer;

          s, i: integer;

  begin

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i] mod 2=0 then

  s:=s+a[i]

  end;

  writeln(s);

  readln();

end.

б) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=0

  for i:=1 to 3 do

  begin

  if a[i]<0 then

  write(a[i], ' ')

  end;

  readln();

end.

в) var a:array[1..3] of integer;

          s, i: integer;

  begin

  for i:=1 to 3 do

begin

  writeln('Vvedite chislo', i - );

  readln(a[i]);

end;

  s:=1

  for i:=1 to 3 do

  begin

  if a[i] mod 3=0 then

  s:=a[i]*a[i];

  end;

  writeln(s);

  readln();

end.

1.

Program u666;

Var

x, y, z, t, n, e, z1, z2, z3: real;

Begin

 readln (e, x, y);

 if sqrt (3*y)+x = 14

 then  

 begin

   z1:= Exp(3*x*y);

   z2:= x+3*y;

   z3:= 0.5*x;

   writeln (z1);

   writeln (z2);

   writeln (z3)

 end

 else

   z:= 0;

   writeln (z);

end.

2. Program Regret;

var x: integer;

begin

 read (x);

 if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12)

 then write ('31');

 if (x=4) or (x=6) or (x=9) or (x=11)

 then write ('30');

 if (x=2)

 then write ('28')

end.

Объяснение:

Интернет урок)