Паскаль Дано натуральное число.Найти первую и последнюю цифру
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
