Question

Определите значение целочисленных переменных a и b после выполнения фрагмента программы.
Бейсик Паскаль Алгоритмический
a = 3456
b = (a MOD 100)*100
a = a\100 + b
'\ и MOD – операции, вычисляю-щие результат деления нацело первого аргумента на второй и остаток от деления соответствен-но a:= 3456;
b:= (a mod 100)*100;
a:= a div 100+b;
{div и mod – операции, вычисля-ющие результат деления нацело первого аргумента на второй и остаток от деления соответствен-но} a:= 3456
b:= mod(a, 100)*100
a:= div(a, 100) + b
|div и mod – функции, вычисляющие результат деления нацело первого аргумента на второй и остаток от деления соответственно|

Answer 1

Var
a,b:integer;

begin
a:= 3456;
b:= (a mod 100)*100;
a:= a div 100+b;
writeln(a);
writeln(b);
end.

a - 5634
b - 5600