Меню сайта

Задача №4
Дан диаметр окружности —d. Найти ее длину —L —= —?*d. В качестве значения —? —использовать -3.14.
Program dlina-
Uses crt-
Var L,d :real-
const pi=3.14-
Begin
Clrscr-
Writeln(‘введите диаметр окружности‘)- readln(d)-
L:=pi*d-
Writeln(‘Длина равна: ‘,L:5:3)-
readln-
End.
Категория: Линейные программы | Дата: 28.11.12

Меню раздела
Блок