Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.
Задача в Паскале. Нужен алгоритм.
Дано 4-х значное число. Сделать так, чтобы количество десятков стало 0.
Задача в Паскале. Нужен алгоритм.
Задача в Паскале. Нужен алгоритм.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program RemoveTens;
var
num, newNum: integer;
begin
writeln('Enter a 4-digit number: ');
readln(num);
newNum := (num div 1000) 1000 + (num mod 100) mod 10 100 + (num mod 100) div 10 * 10 + num mod 10;
writeln('Number with removed tens: ', newNum);
end.