• Вопрос по информатике:

    Напишите программу, подсчитывающую число таких трехзначных чисел, что

    а) Сумма цифр является нечетным числом

    б) Цифры числа расположены по НЕВОЗРАСТАНИЮ

    В ответе программа должна только выдавать количество чисел, сумма цифр которых нечетна и количество числел, цифры которых расположены по НЕВОЗРАСТАНИЮ.

    • Автор:

      wrigley23

  • program zz1;

    var a, b, r, i, p:integer; // задаем переменные целого типа

    begin

    for i:=100 to 999 do // организуем цикл, в котором переберем все трехзначные числа

    begin

    a:= i mod 10; // получаем первую цифру

    b:= i div 100; // получаем вторую цифру

    r:= (i mod 100) div 10; // получаем третью цифру

    if (a + b + r) mod 2 = 0 then p:= p + 1; // проверяем сумму цифр на четность, если сумма четная, то считаем число

    end;

    writeln(' количество найденных трехзначных чисел = ', p); // выводим ответ

    end.

    • Отвечал:

      saltymccann
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска