Begin7. Найти длину окружности $$L$$ и площадь круга $$S$$ заданного радиуса $$R$$:
$$L=2*\pi*R$$, $$S=\pi*R^2$$.
В качестве значения $$\pi$$ использовать 3.14.
Решение:
1 2 3 4 5 6 7 8 9 10 11 |
program Begin7; var R,L,S: Real; begin Write('Введите радиус окружности: '); Readln(R); L:=2*3.14*R; Writeln('Длина окружности равна: ',L); S:=3.14*sqr(R); Writeln('Площадь окружности равна: ',S); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Комментарии: