Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел кратных 7, оканчивающихся на 5. Программа получает на вход количество последовательных чисел, а затем сами числа.
More Questions From This User See All
Answers & Comments
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.