Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания
Входные данные: -7,14,84,0
Составить по Паскалю
More Questions From This User See All
Answers & Comments
programm p;
var
a:array[1..100 ] of integer;
i,n:integer;
s:integer;
begin
readln n;
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
begin
if (a[i]>5)and(a[i]<81)and(a[i]/7=int a[i]/7) then
s:=s+a[i];
if a[i]= 0 then break;
end;
writeln(s);
end.