Question

Знайти суму всіх чисел від -1000 до 0, які кратні 18

Answer 1

Pascal:

var i,s:integer;

begin

 s:=0;

 for i:=0 downto -1000 do begin

   if (i mod 18 = 0) then

     inc(s);

 end;

 writeln(s);

end.

Python:

s=0

for i in range(-1000,1):

if i%18==0:

 s+=1

print(s)