Как вычислить площадь и периметр квадрата в паскале.
Как вычислить площадь и периметр квадрата в паскале.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы