Задание:
Напишите программу на языке паскадь для решения следущей задачи. Известна площадь квадрата. Найдите периметр и диагональ квадрата
Решение:
Var d,s,p: real; Begin Write ('Введите площадь квадрата: '); readln (s); d: =2*s; d: =sqrt (d); p: =sqrt (s); p: =p*4; writeln ('Периметр: ',p,' Диагональ: ',d); end.
Знаете другой ответ?