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

Question

Информатика

Нала

4 августа, 01:57

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

+1

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