Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр числа, в противном случае отбросить последнюю цифру. Pascal

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

Пример на языке программирования Pascal:

program NumberOperations;
var
number, units, tens, sumDigits: integer;
begin
write('Введите число: ');
readln(number);
units := number mod 10;
tens := number div 10;
sumDigits := (number div 100) + (number mod 100) div 10 + (number mod 10);
if (units >= 7) and (units <= 9) then
number := number - sumDigits
else if (units = 2) or (units = 3) then
number := number * tens
else
number := number div 10;
writeln('Итоговое число: ', number);
end.

Эта программа принимает целое число от пользователя, выполняет нужные операции в соответствии с условиями задачи, и выводит итоговое число.