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 можно посмотреть здесь.
Дана сторона квадрата. Найти его периметр.