Заданы N окружностей с радиусами R1 R2 ... Rn. Написать программу, которая запрашивает радиус каждой окружности.

Question

Смарагд

31 января, 05:27

+3

Ответы (1)

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

Гораций · Answer 1

Var i, N: integer;

begin

readln (N) ;

for i : = 1 to N do

begin

writeln ('Введите R ', i, 'окружности') ;

readln () ;

end;

end.