Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания

Входные данные: - 7,14,84,0

Составить по Паскалю

Question

Информатика

Валериан

5 сентября, 21:34

Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания

Входные данные: - 7,14,84,0

Составить по Паскалю

+2

Ответы (1)

Знаете ответ на вопрос?

Юня · Answer 1

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.