заданы N окружностей с радиусами R1 R2..... Rn. Написать программу, которая запрашивает радиус каждой окружности.
Ответы
Ответ дал:
0
var i, N: integer;
begin
readln(N);
for i := 1 to N do
begin
writeln('Введите R ', i, 'окружности');
readln();
end;
end.
begin
readln(N);
for i := 1 to N do
begin
writeln('Введите R ', i, 'окружности');
readln();
end;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад