Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найти количество кратных 7 положительных и сумму кратных 3 нечетных отрицательных целых чисел в интервале от -500 до 600. Помогите написать код в Паскале

Ответ оставил Гость

Const q1 = -500;const q2 = 600;var kr7,kr3, z: integer;k, h : integer;beginh := q1;while h < q2 dobeginkr7 := h mod 7;if (h > 0) and (kr7 = 0) then begink := k +1;writeln(Число кратных , h);end;h := h +1;end;writeln(Число кратных положительных , k);
h := q1; k:=0;while h < q2 dobeginif (h < 0)  then beginz:= z + h;kr3 := z mod 3;if (kr3 = 0)  then begink := k +1;writeln(Число кратных , z);end;end;h := h +1;end;writeln(Число кратных 3 отрицательных , k);end.