Помогите решить задачу по Паскалю !!!очень срочно Найти сумму всех четных трехзначных чисел, кратных 77
Помогите решить задачу по Паскалю !!!очень срочно
Найти сумму всех четных трехзначных чисел, кратных 77
Гость
Ответ(ы) на вопрос:
ГостьОчень просто)
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.
Не нашли ответ?
Похожие вопросы