Question

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

Answer 1

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.