Вопрос по информатике:
Дан диапазон от 1 до 1000,вывести на экран все числа которые кратны 7 и одновременно 11.найти сумму этих чисел и количество,
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.05.2017 22:06
- Информатика
- remove_red_eye 6179
- thumb_up 65
Ответы и объяснения 1
var i, b, c: integer;
begin
b:=0;
c:=0;
for i:=1 to 1000 do
begin
if (i mod 7=0) and (i mod 11=0) then
begin
b:=b+1;
c:=c+i;
end;
end;
writeln('summ=',c,' kol=',b)
end.
- 11.05.2017 15:12
- thumb_up 54
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.