Вопрос по информатике:
найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных целых чисел в интервале от -500 до 600. Помогите написать код в Паскале
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.04.2015 01:14
- Информатика
- remove_red_eye 8573
- thumb_up 32
Ответы и объяснения 1
Const q1 = -500;const q2 = 600;var kr7,kr3, z: integer;k, h : integer;beginh := q1;while h 0) and (kr7 = 0) then begink := k +1;writeln('Число кратных ', h);end;h := h +1;end;writeln('Число кратных положительных ', k);
h := q1; k:=0;while h < q2 dobeginif (h < 0) then beginz:= z + h;kr3 := z mod 3;if (kr3 = 0) then begink := k +1;writeln('Число кратных ', z);end;end;h := h +1;end;writeln('Число кратных 3 отрицательных ', k);end.
- 21.04.2015 22:27
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.