Помогите решить задачу по Паскалю !!!очень срочно
Найти сумму всех четных трехзначных чисел, кратных 77
Ответы
Ответ дал:
0
Очень просто)
var s,i:integer;
Begin
s:=0;
for i:=100 to 999 do if (i mod 77 = 0) and (i mod 2 = 0) then s:=s+i;
writeln ('Сумма: ',s);
end.
var s,i:integer;
Begin
s:=0;
for i:=100 to 999 do if (i mod 77 = 0) and (i mod 2 = 0) then s:=s+i;
writeln ('Сумма: ',s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад