Измените программу из примера 17.3. длина стороны самого большого квадрата 400, а длина стороны каждого следующего квадрата на x меньше(х вводится). информатика, 8 класс. пример 17.3.: uses graphabc; var a, x1,y1,x2,y2: integer; begin write('введи a= '); read(a); write(a); x1 : = 50; y1 : =
50; x2 : = 450; y2 : = 450; for var i : = 1 to 20 do begin rectangle(x1,y1, x2,y2); x1 : = x1 + a; y1 : = y1 + a; x2 : = x2 - a; y2 : = y2 - a; end; end.

что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!

700 иероглифов было в древнем письме

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

ну вроде "алгоритм" переходит в "терминал", хотя по буквам не получается - только последние 5 нормально встают и то, если в алфавите нет ё и й