1.На вход программе поступает последовательность целых чисел по одному числу в каждой строке, все числа последовательности отличны от нуля. Количество чисел неизвестно. Ввод данных заканчивается вводом числа 0. Найдите произведение чисел, кратных 3.Язык питон

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.

нц пока не сверху свободно

закрасить

вправо

кц

 

нц пока сверху свободно

вправо

кц

 

нц пока справа свободно

закрасить

вправо

кц

 

нц пока не справа свободно

закрасить

вниз

кц

 

нц пока справа свободно

вниз

кц

 

нц пока не справа свободно

закрасить

вниз

кц

 

 

15.2 Решение

 

var k, n, a, amax: integer;

begin

amax:=0;

readln(n);

for k:=1 to n do

begin

readln(a);

if (a mod 5 = 0) and (a>amax) then

amax:=a;

end;

writeln(amax);

end.

 

Для проверки правильности работы программы необходимо использовать следующие тесты:

 

Объяснение: