Ответы
Ответ дал:
0
var x, x1, x2: integer;
begin
readln (x);
x1:=x mod 100;
x2:=x div 100;
x:=x1*100+x2;
writeln (x1,' ',x2);
writeln (x)
end.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад