Question

Составить программу нахождения суммы трехзначных чисел кратных 5 и 7 и 9

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

begin
 writeln(range(100,999).Where(x -> x mod 7=0).Where(x -> x mod 9=0).Where(x -> x mod 5=0).Sum);
end.

//"Школьный" вариант

Var
 i,s:integer;
begin
 for i:=100 to 999 do
 if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s:=s+i;
 writeln(s);
end.

Вывод:
1890