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

Question

Информатика

Нил

18 ноября, 05:03

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

+1

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