Ответы на вопрос:
//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.
Популярно: Информатика
-
katerinakatea221.10.2022 23:51
-
Jack170308.12.2020 23:34
-
оксана75529.09.2022 23:08
-
Ulyana15080603.12.2021 21:14
-
илюхв29.12.2022 00:36
-
раовт18.12.2020 20:48
-
8473726374818.08.2021 15:56
-
nemat110909oy85z915.06.2022 04:01
-
innadom3415.03.2020 23:23
-
danylka3315.05.2020 17:34