Question

составьте программу вычисления произведния чисел кратных 8 в диапазоне от 8 до 15​

Answer 1

Var  

b,i:integer;

Begin  for i:= 8 to 15 do    

b:=b+i;  

Writeln('Сумма чисел в диапазоне от 8 до 15 = ',b);  

b:=0;  

for i:= 8 to 15 do    

if (i mod 8) = 0 then      b:=b+i;  

Writeln('Сумма чисел кратных 8 в диапазоне от 8 до 15 = ',b);    

b:=0;  

Writeln('Числа кратные 8 в диапазоне от 8 до 15 );   

for i:= 8 to 15 do    

if ((i mod  8) = 0) then write(i,' ');  

end.