Вопрос по информатике:
Найти кол-во 3х-значных чисел у которых сумма цифр является чётным числом? pascal
- 02.09.2017 13:36
- Информатика
- remove_red_eye 4739
- thumb_up 101
Ответы и объяснения 1
var
i, a, b,c, s :integer;
begin
s:= 0;
for i:=100 to 999 do
begin
a:= i div 100;
b:= (i - a * 100) div 10;
c:= i mod 10;
if ((a + b + c) div 2 = 0) then
s:= s + 1;
end;
writeln (s);
end.
На компе нету паскаля, если что-то неработает пиши
P.S. Нравится решение ? Отметь как лучшее!
- 03.09.2017 09:06
- thumb_up 74
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.