Нужно определить состав трехзначного числа и записать в Pascal Abc

Question

Информатика

Никандр

2 августа, 01:28

Нужно определить состав трехзначного числа и записать в Pascal Abc

+5

Ответы (1)

Знаешь ответ?

Нида · Answer 1

Var

a, i:integer;

begin

write ('Введите число:');

readln (a);

writeln ('Единицы: ', a mod 10);

a:=a div 10;

writeln ('Десятые: ', a mod 10);

writeln ('Сотые: ', a div 10);

readln;

end.