Вычислить длину окружности и площадь круга одного - вопрос №680867 от aleksandr17082004 12.01.2021 10:22

Question

Другие предметы: Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. (программа Паскаль)

aleksandr17082004 · Answer

1. program krug;
2. var
3. l,s,r:real;
4. const
5. p=3.14;
6. begin
7. writeln('введите радиус');
8. readln(r);
9. s:=p*r*r;
10. l:=2*p*r;
11. writeln('площадь равна = ',s,' длина равна = ',l);
12. readln;
13. end.