Вычислить длину окружности и площадь круга одного - вопрос №681042 от MrHard1 14.02.2021 06:25

Question

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

MrHard1 · 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.