Question

Дано натуральное число n. Найти отношение последней цифры к первой цифре заданного числа.
Помогите написать программу в Паскале.

Answer 1

var
  n, i, p1, p2: integer;
 
begin
  read(n);
  p2 := n mod 10;
  while n > 0 do
  begin
    if(n div 10 <= 0) then p1 := (n mod 10);
    n := n div 10;
  end;
  write(p2 / p1);
end.