Записать программу выделения цифр из двузначного числа

Question

Информатика

Левонтий

17 ноября, 11:55

Записать программу выделения цифр из двузначного числа

+5

Ответы (1)

Знаете ответ на вопрос?

Филат · Answer 1

Program n1;

var a, d1, d2: integer;

begin

readln (a) ;

d1:=a div 10;

d2:=a mod 10;

writeln ('1 цифра: ', d1) ;

writeln ('2 цифра: ', d2) ;

end.