Складіть проєкт для малювання квадаратів, розміщених поруч, поки периметр квадрата не перевищує 50 кроків. довжина сторони першого з них дорівнює a кроків, а довжина сторони кожного наступного - на b кроків більша за довжину сторони попереднього. в skratch

австрия - вена

бельгия- брюссель

великобритания-лондон

германия-берлин

ирландия-дублин

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

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.