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

Question

Информатика

Михайлыч

Сегодня, 09:53

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

+5

Ответы (1)

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

Глебка · Answer 1

var l, p, d: real;

label undf;

begin

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

readln (d) ;

p : = 3.14;

l : = p * d;

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

end.