Ответы на вопрос:
Var a,b,c,d,f: integer; begin read (a,b,c,d,f); if a mod 2 = 0 then writeln ("число четное") else нечетное. задаешь команду на кол-во var a,b,c: real; read (a,b) if a=b then c = a*b else c = a+b краткое решение (без оформления)
Популярно: Информатика
-
майнкрафтерчитак04.10.2022 22:44
-
hcufiyicii29.10.2022 22:52
-
дeд18.06.2021 20:58
-
SomaHin23.01.2020 06:23
-
natamelnichenko04.05.2020 21:08
-
Илья0167319.06.2023 21:14
-
vectr200309.01.2021 00:06
-
Dadahkkkaaa00120.12.2022 16:31
-
vikki1748115.06.2022 20:28
-
Новичок22111219.06.2021 23:53