Есть ответ 👍

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

275
315
Посмотреть ответы 2

Ответы на вопрос:


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 - десятки с - единицы надеюсь я правильно тебя понял.

Ответ: 4. но т.к. тут надо минимум 20 символов, вот интересный факт:   кошки эволюционировали в отдельную семью (felidae) примерно 25 миллионов лет назад. с тех пор они распространялись по всему миру и менялись, чтобы соответствовать своей среде обитания. 

Популярно: Информатика