=ЕСЛИ(A1>B1;ЗАМЕНИТЬ(A1;3;3;B1);ЗАМЕНИТЬ(B1;3;3;A1))
Объяснение:
Смотри картинки
Функция ЕСЛИ - позволяет в зависимости от условия выводить два результата. Первый результат возвращается когда, условие истинно, второй результат, когда условие ложно.
ЕСЛИ (условие; первый результат; второй результат)
Здесь сравниваем какое число больше и в зависимости от этого производим замену.
Функция ЗАМЕНИТЬ - позволяет заменить указанное число символов в старой ячейке новыми символами.
ЗАМЕНИТЬ (старая ячейка (в ней заменяем символы, заменяемые символы пропадают); начальная позиция (с какого символа начинаем заменять); число символов (количество заменяемых символов); новые символы (которые вставляем))
Здесь в большем числе убираем 3-5 цифры (т.е. три символа), а вставляем значение меньшего числа.
program five;
var
number, quantity: integer;
begin
quantity := 0;
read(number);
while number > 0 do
begin
if (number mod 10 mod 5 = 0) then
inc(quantity);
number := number div 10;
end;
write(quantity);
end.
Объяснение:
program five; // Название программы
var
number, quantity: integer; // Целочисленные переменные:
number - вводимое с клавиатуры число;quantity - количество цифр кратных 5.begin // Начало программы
quantity := 0; // Количество цифр = 0
read(number); // Ввод числа с клавиатуры
while number > 0 do // Пока значение переменной number > 0
begin // Начало цикла
if (number mod 10 mod 5 = 0) then // Если последняя цифра переменной number (number mod 10) при делении на 5 дает остаток 0, тогда
inc(quantity); // Прибавляем к переменной quantity единицу
number := number div 10; // Удаляем последнюю цифру числа
end; // Конец цикла
write(quantity); // Вывод ответа
end. // Конец программы
