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

Question

Информатика

Каллисфения

17 июня, 09:22

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

+2

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