Вопрос по информатике:
Ребята срочно помогите! 15 баллов! Решить в паскале!
На вход подаются два числа – a и b. Вывести на экран сумму всех чисел между ними, которые кратны 5 и превышают 15. Если таких чисел нет, вывести “NO”.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.02.2017 14:39
- Информатика
- remove_red_eye 13478
- thumb_up 8
Ответы и объяснения 2
begin
write ('Введите числа: ');
readln (a,b);
if a<=b then
for i:=a to b do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if a>b then
for i:=b to a do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if s>0 then writeln ('Сумма всех чисел между ними, которые кратны 5 и превышают 15, равна: ',s)
else writeln ('NO')
end.
- 17.02.2017 08:52
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.