Question

Даны натуральные числа от 35 до 150,найти сумму и колличество тех из них которые при делении на 8,дают остаток 1 или 2

Answer 1

Var s,k,i:integer;
begin
k:=0;
s:=0;
for i:=35 to 150 do begin
if (i mod 8 = 1) or (i mod 8 = 2) then begin
s+=i;
k+=1;
end;
end;
writeln('Количество - ',k);
writeln('Сумма - ',s);
end.