Вопрос по информатике:
Найдите сумму и произведение целых чисел в диапазоне [1;150] кратные 5
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.12.2016 04:00
- Информатика
- remove_red_eye 11154
- thumb_up 29
Ответы и объяснения 1
Вот:
var a:array[1..150]of integer;
i,s,p:integer;
begin
p:=1;
for i:=2 to 150 do
begin
a[i]:=a[i-1]+1;
if a[i] mod 5=0 then
begin
s:=s+a[i];
p:=p*a[i];
end;
end;
writeln('summa:',s,' proizvedenie:',p);
end.
- 17.12.2016 05:40
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.