Question

дано пятизначное число .Вывести на экран его первую цифру

Answer 1

program n1;
var x:integer;
begin
writeln('введите пятизначное число');
read(x);
x:=x div 10000;
writeln('первая цифра числа=', x)
end.