№1.Определите значение целочисленных переменных х и у после выполнения фрагмента программы:
х:=136
у:=4;
х:= х div y;
у:= х mod y;
№2.Определите значение целочисленных переменных х и у после выполнения фрагмента программы:
а:=582;
b:=(a div 10) mod 5;
а:=а очень надо.Может быть в этом здесь кто-то разбирается)

Первое задание: x = 34; y = 2

Второе задание: a = 537; b = 3

Объяснение:

Вот программка:

var x, y, a, b: integer;

begin

 x:=136;

 y:=4;

 x:= x div y;

 y:= x mod y;

 writeln('Первое задание: x = ', x, '; y = ', y);

 writeln;

 a:=582;

 b:=(a div 10) mod 5;

 a:= a - 15 * b;

 writeln('Второе задание: a = ', a, '; b = ', b);

 readln

end.