Ответы
Ответ дал:
0
Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
Ответ дал:
0
имелось ввиду данное?
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад