Паскаль Дано четырехзначное число. Найти во сколько раз количество единиц больше или...

Question

Паскаль
Дано четырехзначное число. Найти во сколько раз количество единиц больше или меньше числа тысяч данного числа

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=Abs(ReadInteger('n='));
  var (ke,kt):=(n mod 10,n div 1000);
  if ke>kt then
    Writeln('Число единиц больше числа тысяч в ',ke/kt,' раз(а)')
  else
    if kt>ke then
      Writeln('Число единиц меньше числа тысяч в ',kt/ke,' раз(а)')
    else
      Writeln('Число единиц равно числу тысяч')
end.

Пример
n= 2766
Число единиц больше числа тысяч в 3 раз(а)