Question

Залано целое число меньше тысячи, используя div и mod выведите на экран его последнюю и первую циФру

Answer 1

Var
    n: integer;
begin
    readln(n);
    writeln('Последняя цифра: ', n mod 10);
    while n > 9 do
        n := n div 10;
    writeln('Первая цифра: ', n);
end.