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

1

Ответы и объяснения

2013-10-16T15:37:02+04:00
Var i, N: integer;
begin
     readln(N);
     for i := 1 to N do
     begin
          writeln('Введите R ', i, 'окружности');
          readln();
     end;
end.