Question

на паскаль Саша и Петя играют в игру. Сначала Саша придумывает числу А, а Петя подбирает к нему не меньшее число В. Потом Саша выписывает на листе все числа от A до B(включительно) и зачеркивает те числа, сумма цифр которых чётна. Дальнейший ход игры зависит от количества оставшихся чисел, поэтому Пете важно подобрать правильное число. Помогите Пете написать программку, которая будет высчитывать количество чисел оставшихся после вычеркивания всех чисел с четной суммой цифр. Формат ввода Программа получает на вход два натуральных числа A и B,A < B. Формат вывода Программа должна вывести единственное число - количество чисел с нечётной суммой цифриз выписанных на листе.

Answer 1

Ответ:

х=6 - задуманное число

Обьяснение:

х - задуманное число

(7х-6):6=6

7х-6=6·6

7х-6=36

7х=36+6

7х=42

х=42:7

х=6

Answer 2

Конечно, вот программа на Pascal, которая решает эту задачу:

pascalCopy code
program Game;

var
  A, B, num, digit, sum, count: integer;

function IsEven(num: integer): boolean;
begin
  IsEven := num mod 2 = 0;
end;

begin
  readln(A, B);
  count := 0;

  for num := A to B do
  begin
    sum := 0;
    // Вычисляем сумму цифр числа num
    while num > 0 do
    begin
      digit := num mod 10;
      sum := sum + digit;
      num := num div 10;
    end;

    // Если сумма цифр нечетная, увеличиваем счетчик
    if not IsEven(sum) then
      Inc(count);
  end;

  writeln(count);
end.

Программа сначала считывает числа A и B, а затем проходит через все числа от A до B включительно. Для каждого числа вычисляется сумма его цифр, и если эта сумма нечетная, то увеличивается счетчик count. По окончании цикла выводится значение счетчика, представляющее количество чисел с нечетной суммой цифр.