Вычислить длину окружности и площадь круга одного - вопрос №681544 от snegjana 31.07.2022 09:25

Question

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

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