Составить программу нахождения чисел от -100 до 100 кратных 7 pascal abc

Question

Составить программу нахождения чисел от -100 до 100 кратных 7
pascal abc

Answer 1

Я взяла числа по модулю, иначе будет 0. Если тебя устраивает 0, тогда не пиши abs в условии.

var s,a: integer;
i:integer;
begin
a:=-101;
for i:=1 to 200 do begin
a:=a+1;
if a mod 7=0 then s:=s+abs(a);
end;
writeln (s);
end.

Выводит: 1470

Comments

тута не сумма нужен ж

---

var s,a: integer;
i:integer;
begin
a:=-101;
for i:=1 to 200 do begin
a:=a+1;
if a mod 7=0 then writeln (a);
end;
end.

---

Выводит: -98
-91
-84
-77
-70
-63
-56
-49
-42
-35
-28
-21
-14
-7
0
7
14
21
28
35
42
49
56
63
70
77
84
91
98