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

Question

Информатика

Вела

19 июля, 21:10

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

+2

Ответы (1)

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

Есфирь · 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.