найдите значения целочисленной переменной a и b пожалуйста!

CategoriesАлгебраПредмет

a=2599

b=(a mod 10)*1000+26

a=(b div 10) mod 100

Ответы:

вот код

Uses Crt,

Var a,b:Integer,

Begin

a:=2599,

b:=(a mod 10)*1000+26,

a:=(b div 10) mod 100,

Write(a, ,b),

End.

Ответ: а 2 , б 9026