воскресенье, 1 октября 2017 г.

Найти длину окружности p заданного радиуса r.  P=2πR
 Program Okr;
 Var p, r : real;
Begin
WriteLn ('Введите радиус');
ReadLn (r);
p:=2*3.14*r;
 Write ('Длинна окружности = ', p);
 ReadLn
End.
Автор: на

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)