Question

Напишите программу для решения задачи и реализуйте ее в среде програмирования PascalABC. Используйте операции div и mod. Задано трехзначное число. Найдите на сколько количество сотен отличается от количества единиц числа. СРОЧНО!!!!!

Answer 1

[Программа в приложении]

bb2c58bbf5490a3bef65b0cab2aa4259.pas

Answer 2

Вам текстом кинуть?

Answer 3

var
num, edi: integer;

begin
write('Введите трёхзначное число: ');
read(num);
edi := num MOD 10;
num := num DIV 100; //С этого момена num - сотая числа
write('Сотая часть числа ');
if num > edi then write('больше единичной на ', num - edi) else write('меньше единичной на ', edi - num);
end.