3. Складіть проект з використанням змінних для малювання 2-х квадратів, лініями різної товщини і різного кольору. Довжини

сторін у квадратів різні і вводяться з клавіатури. Проєкт збережіть з

назвою Квадрати.

4. Складіть проєкт з використанням змінних для малювання 2-х

прямокутників, лініями різної товщини і різного кольору. Довжини

сторін для прямокутників різні і вводяться з клавіатури. Проєкт

збережіть з назвою Прямокутники.

одно их этого , последнии балы отдаю . Это скретч

Паша имеет выйгрушную стратегию и сможет выйграть за один ход, если s=27 тогда ему достаточно добавить один камень чтобы игра закончилась при 28 камнях в куче или если s=14,15,16,17,18,19,20,21,22(44/2 и 28/2 т.е от 14 до 22), тогда не обходимо удвоить количество камней в куче.

Объяснение:

Паша имеет выйгрушную стратегию и сможет выйграть за один ход, если s=27 тогда ему достаточно добавить один камень чтобы игра закончилась при 28 камнях в куче или если s=14,15,16,17,18,19,20,21,22(44/2 и 28/2 т.е от 14 до 22), тогда не обходимо удвоить количество камней в куче.

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.