Вопрос по информатике:
Ребят, помогите очень срочно!
Написать программу задачи: дано все 3-х значные числа найти сумму и количество чисел которые кратны 9.
- 25.01.2018 11:43
- Информатика
- remove_red_eye 8143
- thumb_up 33
Ответы и объяснения 1
Var
i, a, p: integer;
begin
a := 0;
p := 0;
for i := 100 to 999 do
begin
if i mod 9 = 0 then
begin
a := a + i;
p := p + 1;
end;
end;
writeln('Сумма = ', a);
writeln('Кол-во чисел = ', p);
end.
- 26.01.2018 05:30
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.