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

Предыдущий
вопрос Следующий
вопрос

Программа находит это различие:

program CountDifference;
var
number, thousands, units, difference: integer;
begin
// Вводим четырехзначное число
write('Введите четырехзначное число: ');
readln(number);
// Находим количество тысяч и единиц в числе
thousands := number div 1000;
units := number mod 10;
// Находим разницу между количеством единиц и тысяч
difference := abs(units - thousands);
// Выводим результат
writeln('Количество единиц ', units, ' ', IfThen(units > thousand, 'больше', 'меньше'), ' количества тысяч ', thousands, ' в ', difference, ' раз(а)');
end.

Это программа находит количество единиц и тысяч в четырехзначном числе и вычисляет, во сколько раз количество единиц больше или меньше количества тысяч.