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