ТутРешу.Ру

Напишите программу на языке паскадь для решения следущей задачи

Задание:

Напишите программу на языке паскадь для решения следущей задачи. Известна площадь квадрата. Найдите периметр и диагональ квадрата

Решение:

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.




Знаете другой ответ?

Отправить свой ответ