Хоть и тупо, и сумма нечетных чисел кратных 8 равна 0, вот решение на паскале:
var i, s: integer; begin s:=0; //проверяем каждое число от 1 до 100 for i:=1 to 100 do //если остаток i на 2 не равен нулю //и остаток i на 8 равен нулю, то s увеличиваем на i if (i mod 2 <> 0) and (i mod 8 = 0) then inc(s, i); writeln(s); end.
Answers & Comments
Verified answer
Хоть и тупо, и сумма нечетных чисел кратных 8 равна 0, вот решение на паскале:var
i, s: integer;
begin
s:=0;
//проверяем каждое число от 1 до 100
for i:=1 to 100 do
//если остаток i на 2 не равен нулю
//и остаток i на 8 равен нулю, то s увеличиваем на i
if (i mod 2 <> 0) and (i mod 8 = 0) then
inc(s, i);
writeln(s);
end.