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

Question

77

в избранное ссылка

Знаете ответ?

dgs214 · Accepted Answer

42

dgs214

24 апреля 2023

Program Pr1; var a: integer; Beginreadln (a); writeln ('Posl.- ',a mod 10); while a div 10 <>0 do a: =a div 10; writeln ('Perv.- ',a); end.

комментировать

в избранное ссылка отблагодарить