Uses drawman;beginfield(23,5);topoint(1,4);pendown;topoint(1,2);topoint(4,2);topoint(4,4);topoint(1,4);penup;topoint(3,3);pendown;topoint(3,1);topoint(6,1);topoint(6,3);topoint(3,3);penup;topoint(5,4);pendown;topoint(5,2);topoint(8,2);topoint(8,4);topoint(5,4);penup;topoint(7,3);pendown;topoint(7,1);topoint(10,1);topoint(10,3);topoint(7,3);penup;topoint(9,4);pendown;topoint(9,2);topoint(12,2);topoint(12,4);topoint(9,4);penup;topoint(11,3);pendown;topoint(11,1);topoint(14,1);topoint(14,3);topoint(11,3);penup;topoint(13,4);pendown;topoint(13,2);topoint(16,2);topoint(16,4);topoint(13,4);penup;topoint(15,3);pendown;topoint(15,1);topoint(18,1);topoint(18,3);topoint(15,3);penup;topoint(17,4);pendown;topoint(17,2);topoint(20,2);topoint(20,4);topoint(17,4);penup;topoint(19,3);pendown;topoint(19,1);topoint(22,1);topoint(22,3);topoint(19,3);penup;end.
Переводить в десятичную и решать в ней, результат потом переводить обратно
Ответ:
6
Объяснение:
От 0 до 5(включительно) 6.
6 раз повториться действие
s:=s+1;
Значит будет:1+1+1+1+1+1=6
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
