там12

15.04.2020 08:11 •  Другие предметы

Перевод с Паскаля на Кумир
Очень Введите количество цифр');
read(n);
max:=0;
repeat
writeln('Введите число. (Осталось ввести ',n, ')');
readln(x);
if (x mod 3=0) and (x mod 10=6) and (abs(x)>max) then max:=x;
n:=n-1;
until n=0;
writeln('Максимальное число, кратное 3-м и заканчивающееся на 6 = ',max);
end.