Составить программу, которая в последовательности - вопрос №1553896 от daryabazhutina 04.10.2022 01:44

Question

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

daryabazhutina · Answer

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.