Дан диаметр окружности d. Найти ее длину L=П*d. В качестве значения П использовать 3.14

Question

Дан диаметр окружности d. Найти ее длину L=П*d. В качестве значения П использовать 3.14

Comments

что сделать то надо?

Answer 1

Решение:

Delphi/Pascal

program Begin4;

var

d,L: Real;

begin

Write('Введите диаметр окружности : ');

Readln(d);

L:=3.14*d;

Writeln('Длина окружности равна: ', L);

end.