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

BRB987 BRB987    1   01.06.2019 17:20    0

Ответы
айка392 айка392  02.07.2020 19:23
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика