Предмет: Информатика,
автор: balakinmichael14
заданы 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.
Интересные вопросы
Предмет: Химия,
автор: dalisany14
Предмет: История,
автор: Аноним
Предмет: География,
автор: polanskijandrej188
Предмет: Математика,
автор: alyapav2001