Ответы на вопрос:
//pascalabc.net var a: integer; begin a: =1; while a < 21 do begin if a mod 2 = 0 then write(a,' '); a: =a+1; end; writeln; a: =20; while a < 31 do begin if a mod 2 = 1 then write(a,' '); a: =a+1; end; end.
Популярно: Информатика
-
yanarem117.08.2020 14:40
-
алгебра9720.03.2020 12:37
-
Ната91127.11.2021 13:52
-
малая55531.07.2020 00:41
-
Meowmeowmi29.06.2023 05:36
-
никуля4013.10.2021 14:55
-
Дима1531313.02.2023 03:50
-
Блинь26.07.2022 14:19
-
elena11110401.08.2021 13:59
-
gvg197112.05.2020 23:01