Подсчитать количество и сумму чисел кратных 3 в диапазоне от -30 до 30.
Срочно!!!!В программе Pascal!!!

да

значит это всё

program z;var i,s,k:integer;begins:=0;k:=0;for i:=-30 to 30 doif i mod 3=0 thenbegins:=s+i;k:=k+1;end;write(s,' ',k);end.а тебе -30 и 30 включительно?