Ответы на вопрос:
3. var a: integer; begin read(a); if(a mod 2 = 0) then writeln ('число' , a, 'четное') else writeln ('число' , a, 'нечетное'); end. 2. var a: integer; begin read(a); while a> 0 do begin writeln(a mod 10); a: =a div 10; end; end.
Популярно: Информатика
-
gasanova68320.01.2022 15:11
-
SashaGirl1357926.10.2021 21:16
-
BTSBTSBTS13.02.2023 16:38
-
YAMAHAv29.08.2020 19:39
-
fish170401.05.2023 21:27
-
neeestii07.12.2022 09:02
-
oborinamascha15.01.2020 06:29
-
veronika484809.03.2022 19:51
-
cadatik0406.02.2020 17:22
-
doncov200125.06.2020 17:51