найдите сумму кратных 7 чисел , меньших 100
Ответы на вопрос
Ответил Sky09
0
var s,i:integer;
begin
for i:=1 to 99 do
if i mod 7=0 then s:=s+i;
writeln(s);
end.
begin
for i:=1 to 99 do
if i mod 7=0 then s:=s+i;
writeln(s);
end.
Ответил Sky09
0
В зависимости от того, как стоит условие, число 99 может измениться на 100. Разницы в вычислениях, в принципе, не будет, т.к. 100 не кратно 7. Но с учетом того, что [строго меньше 100], программа выглядит именно так.
Новые вопросы
Обществознание,
2 года назад
Математика,
2 года назад
Математика,
10 лет назад
Литература,
10 лет назад