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

1

Ответы и объяснения

2013-02-13T19:55:48+04:00

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.