Регистрация
Irina5786
11.04.2020 21:00
Информатика
Есть ответ 👍

Напишите фрагмент программы, находящий сумму положительных кратным 5 чисел, меньших 120

198
380
Посмотреть ответы 2

Ответы на вопрос:

Irina1440
Irina1440
4,6(77 оценок)
Var      i,n: integer; begin    for i: = 1 to 119 do      if (i mod 5) = 0 then        n: =n+i;     write('сумма положительных кратных 5 чисел, меньших 120 равна ',n); end.  
Bulmeshka
Bulmeshka
4,6(51 оценок)
Берёшь первый элемент, сравниваешь со вторым, если первый больше второго, то первый становится максимальным, если нет, то минимальным. далее берёшь второй элемент сравниваешь с максимальным, если максимальный больше, то так и оставляешь и сравниваешь со следующим элементом, если меньше, то максимальным становится третий и так далее. тоже самое с минимальным, если третий элемент меньше минимального, он становится минимальным. и так до 10-го элемента.

Популярно: Информатика