Задать вопрос
1 августа, 10:12

С клавиатуры вводится число до 1000. Определить какой сотне принадлежит число. Определить чётная или нечётная сумма цифр

+4
Ответы (1)
  1. 1 августа, 12:54
    0
    Var x, a, b, c, s: integer;

    begin

    write ('Введите число: ') ; readln (x) ;

    a : = x div 100;

    b : = (x div 10) mod 10;

    c : = x mod 10;

    s : = a + b + c;

    writeln ('Число принадлежит ', a, ' сотне') ;

    if (s mod 2 = 0) then writeln ('Сумма цифр четная')

    else writeln ('Сумма цифр нечетная') ;

    end.

    a - сотни

    b - десятки

    с - единицы

    Надеюсь я правильно тебя понял.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «С клавиатуры вводится число до 1000. Определить какой сотне принадлежит число. Определить чётная или нечётная сумма цифр ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы