Плесс. на языке паскаля. напишите программу,которая в последовательности натуральных чисел определяет минимальное,оканчивающееся на 2. программа получает числа. признак окончания ввода 0. количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число - минимальное,оканчивающееся на 2,если таких нет,вывести на экран об этом сообщение.
170
236
Ответы на вопрос:
Var a,m: integer; begin m: =32767; repeat read(a); if (a mod 10 = 2)and(a < m) then m: =a; until a=0; if m mod 2 = 0 then writeln(m) else writeln('чисел, оканчивающихся двойкой нет.') end.
Популярно: Информатика
-
Yachit6821.02.2022 08:24
-
Satana666666666166611.10.2022 04:49
-
Маслинка17431.05.2022 18:28
-
uliana11529.09.2020 11:16
-
youtubeadamchuk10.09.2021 14:41
-
NarkoBaronTif11.06.2020 17:40
-
zhenya453402.06.2022 02:10
-
mellll1234512.04.2022 02:28
-
ParkAnna17.03.2023 15:08
-
535235235627.01.2020 07:12