Напишите программу, которая в последовательности - вопрос №9262407 от андаин1998 01.08.2021 23:11

Question

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

андаин1998 · 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....