Ответы на вопрос:
1)var a: integer; begin readln(a); a: =a^a; writeln('квадрат заданного числа равен',a); end. 2)var a: integer; begin readln(a); if odd(a)=true then writeln('нечётное') else writeln('чётное'); end. 3)var a,b: integer; begin readln(a); for b: =1 to a do a: =a*a; writeln('нечто: ',a); end.
Популярно: Информатика
-
маршмален20.06.2020 12:16
-
dan77613.01.2022 12:05
-
turuo30.03.2023 17:59
-
DakotaDp11.08.2020 14:25
-
натали1985219.01.2022 13:01
-
rimolol01.03.2022 01:43
-
Anastasia771123.02.2022 20:51
-
drgotika201128.05.2021 03:25
-
Ionutamaria9025.03.2022 01:02
-
nastyagorcha27.11.2022 18:01