Регистрация
KageyamaT
19.09.2021 12:40
Информатика
Есть ответ 👍

Кто-нибудь знает как решить

178
488
Посмотреть ответы 1

Ответы на вопрос:

hdhshuuyfftf
hdhshuuyfftf
4,6(49 оценок)
Var a,r,sa,sr: real; begin         write('введите число a=');         readln(a);         write('введите число r=');         readln(r);         sa: =sqr(a);         sr: =pi*sqr(r);         writeln('площадь квадрата = ', sa, ', площадь круга = ',sr);         if sa< =sr then writeln('площадь квадрата меньше или равна площади круга. периметр квадрата = ',a*4);       if sr< =sa then writeln('площадь круга меньше или равна площади квадрата. длинна окружности = ',2*pi*r); end.

Популярно: Информатика