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

Question

Информатика

Таюня

3 сентября, 23:17

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

+4

Ответы (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.