Написать программу для нахождения длины окружности и площади круга (Паскаль)

Question

Информатика

Валюха

28 января, 09:16

Написать программу для нахождения длины окружности и площади круга (Паскаль)

+3

Ответы (1)

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

Лия · Answer 1

Const p=3.14;

var l, r, s:real;

begin

write (' введи радиус') ;

l:=2*p*r;

writeln (' длина окружности = ', l) ;

s:=p*sqr (r) ;

writeln (' площадь круга = ', s) ;

end.