Дан диаметр окружномти d. найти ее длину l=p*d. в качестве значения p использовать 3, 14

Question

Информатика

Михайлыч

29 июня, 08:49

Дан диаметр окружномти d. найти ее длину l=p*d. в качестве значения p использовать 3, 14

+3

Ответы (1)

Знаете ответ на вопрос?

Глебка · Answer 1

var l, p, d: real;

label undf;

begin

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

readln (d) ;

p : = 3.14;

l : = p * d;

writeln ('Длина равна ', l) ;

end.