Вывести на экран все двухзначные числа в порядке убывания с шагом 3 (т.е будет 99,
295
333
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1383 от 09.02.2017 begin range(99,10,-3).println end. результат 99 96 93 90 87 84 81 78 75 72 69 66 63 60 57 54 51 48 45 42 39 36 33 30 27 24 21 18 15 12
Var x, k: integer; begin k: =0; repeat readln(x); if x mod 2 = 0 then inc(k); until x=0; writeln(k); end.
Популярно: Информатика
-
volfdima2011p0aaz812.07.2021 04:19
-
лолитаfff14.07.2020 22:28
-
dianadidi303.02.2022 04:09
-
misterzol129.11.2020 00:19
-
Alexal1608.10.2022 00:44
-
BratanTVision06.09.2022 19:56
-
ocreater23.06.2023 21:57
-
lizalubavina16.03.2023 16:45
-
Aloha4420.07.2020 08:13
-
rtyuidsad04222.06.2020 16:42