Склавиатуры вводится число до 1000. определить какой сотне принадлежит число. определить чётная или нечётная сумма цифр
275
315
Ответы на вопрос:
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 миллионов лет назад. с тех пор они распространялись по всему миру и менялись, чтобы соответствовать своей среде обитания.
Популярно: Информатика
-
РумакСтепан16.02.2021 18:50
-
lerikonusheva15.07.2022 23:39
-
foma19999924.05.2021 20:30
-
Desant111109.08.2022 12:48
-
ЕлизаветаМахова21.02.2023 10:53
-
Данил6785418.02.2023 20:08
-
aleksandrafrolo106.12.2020 22:56
-
TemhenkoShasa19.03.2020 01:09
-
lesyastruklol24.05.2021 05:16
-
алинаарсенова27.03.2022 08:50