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

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

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

Var fir, sec, i: integer;
begin
for i:=-500 to 600 do
begin
if (i>0) and (i mod 7 = 0) then fir:=fir+1;
if (i<0) and (i mod 3 = 0) and (i mod 2 <> 0) then sec:=sec+i;
end;
writeln(Количество кратных 7 положительных чисел: , fir);
writeln(Сумма кратных 3 нечетных отрицательных чисел: , sec);
end.