Паскаль Дано натуральное число. Найти первую и последнюю цифру

Question

Информатика

Натоша

26 июля, 05:10

Паскаль Дано натуральное число. Найти первую и последнюю цифру

+1

Ответы (1)

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

Радий · Answer 1

Program Pr1;

var a:integer;

Begin

readln (a) ;

writeln ('Posl. - ', a mod 10) ;

while a div 10 0 do a:=a div 10;

writeln ('Perv. - ', a) ;

end.