Перевод с Паскаля на Кумир
Очень Введите количество цифр');
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.
173
490
Ответы на вопрос:
Популярно: Другие предметы
-
ВІДМІННИК1114.11.2022 11:34
-
alinka1215200205.03.2021 16:46
-
dimaloginkinozgu9224.04.2023 04:40
-
Арсен07717.09.2021 05:27
-
унитазавр15.05.2022 08:37
-
okhotnikoffzhep08lws24.12.2021 19:01
-
bondarevera08.08.2021 09:56
-
Notch08.06.2023 06:57
-
DJZargo09.07.2022 13:33
-
Lesya260124.09.2020 21:56