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

Jannacool Jannacool    1   18.05.2021 18:33    0

Ответы
madamgurdyumova madamgurdyumova  18.06.2021 00:46

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)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика