Напишите программу,которая для заданной последовательности натуральных чисел подсчитывает сумму входящих в неё трехзначных чисел,которые делятся на 7.Программа получает на вход кол-во чисел в прследовательности, а затем сами числа.Кол-во чисел не превышает 1000.Введенные числа не превышают 30 000.Программа должна вести одно число-сумму трехзначных чисел,находящихся в заданной последовательности натуральных чисел.
More Questions From This User See All
Answers & Comments
var n,x,i,s: longint;
begin
s:=0;
read (n);
for i:=1 to n do;
begin
read (x);
if (x > 99) and (x < 1000) and (x mod 7 = 0) then s:=s+x;
end;
write (s);
end.