Напишите программу, которая в последовательности - вопрос №9262741 от reginaarslanov 07.01.2023 20:44

Question

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

reginaarslanov · 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....