Ответы
Ответ дал:
0
var n,m,k:Integer;
begin
Readln(n);
Writeln(n mod 10);
m:=n div 10;
Writeln(m mod 10);
Writeln(n div 100);
end.
begin
Readln(n);
Writeln(n mod 10);
m:=n div 10;
Writeln(m mod 10);
Writeln(n div 100);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад