Паскаль. Создать программу которая высчитывает площадь круга; радиус вводится пользователем. Программа завершается когда r <0

Question

Артем

16 апреля, 07:58

+4

Ответы (1)

Знаете ответ?

Томуня · Answer 1

Кароч вот порога на нахождение радиуса

program z1;

var r:integer;

var s:real;

begin

read (r) ;

s:=3.14 * (sqr (r) ;

write (s) ;

end