Напечатать старшую и младшую цифры пятизначного числа, АВС паскаль

Question

Информатика

Арсентий

5 октября, 03:23

Напечатать старшую и младшую цифры пятизначного числа, АВС паскаль

+4

Ответы (1)

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

Леоня · Answer 1

Program n1;

var a, b, c : integer;

begin

writeln ('напечатайте число") ;

read (a) ;

b:=a div 10000;

c:=a mod 10;

writeln ('старшая=', a) ;

writeln ('младшая=', c)

end.