Напишите программу, которая в последовательности - вопрос №9262064 от АлёнаDances5943 26.07.2022 23:23

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел кратных 7, оканчивающихся на 5. программа получает на вход количество последовательных чисел, а затем сами числа.

АлёнаDances5943 · Answer

var i,sum,n,x:integer; Begin sum:= 0; readln(n); for i:=1 to n do begin readln(x); if(x mod 7 = 0) and (x mod 5 = 0) then sum:=sum+x; end; writeln(sum); End....