Составьте программу рисования 10 концентрических окружностей с центром в точке (300,200) и радиусами 10,20,. (надо использовать while )

murenko20061 murenko20061    1   14.06.2019 20:20    0

Ответы
KaKTyZzZz KaKTyZzZz  12.07.2020 09:20
Uses GraphABC;
var r: integer;
begin
  while r < 100 do begin
    r := r + 10;
    DrawEllipse(300-r,200-r,300+r,200+r);
  end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика