EXTER2203
Опубликовано 6 лет назад по предмету Информатика от EXTER2203


Ребята срочно помогите! 15 баллов! Решить в паскале! На вход подаются два числа – a и b. Вывести на экран сумму всех чисел между ними, которые кратны 5 и превышают 15. Если таких чисел нет, вывести “NO”.

  1. Ответ
    Ответ дан elenaklon
    var a,b,i,s:integer;beginwrite ('Введите числа: ');readln (a,b);if a<=b thenfor i:=a to b doif (i mod 5 = 0) and (i>15) then s:=s+i;if a>b thenfor i:=b to a doif (i mod 5 = 0) and (i>15) then s:=s+i;if s>0 then writeln ('Сумма всех чисел между ними, которые кратны 5 и превышают 15, равна: ',s)else writeln ('NO')end.
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 4 месяца назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 4 месяца назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 4 месяца назад

На какие расы делятся население земли

kinda2007
Другие предметы - 4 месяца назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 4 месяца назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников