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

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

Я взяла числа по модулю, иначе будет 0. Если тебя устраивает 0, тогда не пиши abs в условии.var s,a: integer;i:integer;begina:=-101;for i:=1 to 200 do begina:=a+1;if a mod 7=0 then s:=s+abs(a);end;writeln (s);end.Выводит: 1470