Ответы на вопрос:
Program test3;
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln ( a);
S:= a*a;
P:= a+a+a+a;
Writeln (‘ответ: ’, S, P);
End.
Популярно: Информатика
-
dali66612.11.2021 02:52
-
monx24.12.2022 12:48
-
ruzall23.06.2023 13:07
-
YuraJuliya20.05.2022 00:17
-
sasha23020048726.01.2022 08:30
-
trohy7127.12.2022 11:49
-
rolleck08.08.2022 01:08
-
kidz12313.09.2021 06:10
-
Безликая00928.09.2021 23:13
-
BARBARA07070414.01.2021 05:27