Как вычислить площадь и периметр квадрата в паскале.
Program p1;
var a: real;
S: real;
P: real;
begin
writeln(Введите сторону квадрата A: );
readln(a);
S := a * a;
P := a * 4;
writeln(Площадь равна ,S);
writeln(Периметр равен ,P);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
