Вопрос по информатике:
В последовательности чисел найти сумму нечетных, кратных 3. Признак конца ввода ноль.(паскаль с циклом while) срочно нужна помощь
- 12.01.2018 09:15
- Информатика
- remove_red_eye 878
- thumb_up 29
Ответы и объяснения 1
Program pr;
uses crt;
Var chislo, sum:integer;
Begin
Writeln('Введите число');
readln(chislo);
sum:=0;
While chislo0 do
Begin
if (chislo mod 20) and (chislo mod 3=0)
then sum:=sum+chislo;
Writeln('Введите число');
readln(chislo);
end;
Writeln('Сумма = ', sum);
readln();
end.
- 13.01.2018 09:56
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.