с задачей 25 по информатике 8 класса. Эту задачу надо решить 1 раз цикл с заданным условием окончания - id1070447420221027 от ааа516 27.10.2022 23:38

Question

Информатика: с задачей 25 по информатике 8 класса. Эту задачу надо решить 1 раз цикл с заданным условием окончания работы (цикл - ДО) и 1 раз цикл с заданным числом повторений (цикл - ДЛЯ) . Извините за перевернутое фото, только так вмещается​

ааа516 · Accepted Answer

Код в Turbo Pascal:
USES Graph,CRT;
VAR x,y,dx,dy,Device,Mode,i: Integer;
BEGIN
Device:=0;
InitGraph(Device,Mode,'');
x:=10; y:=10;
dx:=1; dy:=1;
i:=1;
Repeat
SetColor(Cyan);
Circle(x,y,10);
SetFillStyle(1,3);
FloodFill(x,y,Cyan);
Delay(10);
SetColor(Black);
Circle(x,y,10);
SetFillStyle(1,0);
FloodFill(x,y,Black);
x:=x+dx; y:=y+dy;
if (x>300) OR (y>200) then
begin
  x:=10;
  y:=10;
  i:=i+1;
end;

until i>5;
END.

MOGZ ответил