Ответы на вопрос:
Var a,b,c: integer; begin; readln(a); readln(b); readln(c); if (a> b) and (b> c) and (c> 0) then begin; a: =sqr(a); b: =sqr(b); c: =sqr(c); writeln('a=',a); writeln('b=',b); writeln('c=',c); end; end.
Популярно: Информатика
-
Pots15020419.11.2021 14:46
-
gurgurov6822.11.2021 04:48
-
EeOneGuy199731.03.2022 21:11
-
HELPERSKINE23.06.2021 09:16
-
Sl1dan05.02.2021 14:16
-
Рената51513.02.2022 00:13
-
ali661903.07.2020 13:34
-
dukto555501.05.2021 19:15
-
tomlinsondarya24.12.2022 15:18
-
dan4ik10521716.08.2020 14:55