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

PAMAGITE12 PAMAGITE12    2   19.06.2019 06:50    0

Ответы
tshaxzoda tshaxzoda  15.07.2020 16:28
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 - десятки
с - единицы

Надеюсь я правильно тебя понял.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика