Предмет: Информатика, автор: chemjuliy78

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

Ответы

Автор ответа: lenyashastin
0

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)

Похожие вопросы
Предмет: Математика, автор: Кирилл3009
Предмет: Русский язык, автор: Vaneksuperpro
Предмет: Математика, автор: lelikct2013