помогите решить! Дана сторона квадрата.Найти его периметр,площадь,длину диагонали. S=a², P=4a, d=a√2
Answers & Comments
mixax256
Var S, P, d, a : real; begin write('Введите значение а: '); readln(a); S := a * a; P := 4 * a; d := a * sqrt(2); writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода // 5 знаков после запятой end.
Answers & Comments
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
d := a * sqrt(2);
writeln('S = ', S, ', P = ', P, ', d = ', d:1:5); // последнее написано для вывода
// 5 знаков после запятой
end.