ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ** ЯЗЫКЕ ПАСКАЛЬ. Дано число n. В интервале от 1 до n сложить...

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.
Дано число n. В интервале от 1 до n сложить все числа, которые делятся на 3, и перемножить все, делящиеся на 2.

Answer 1

Var n,a,b,c:integer;
begin
write('введите длину интервала: ');
readln(n);
a:=0;
c:=1;
for b:=1 to n do begin
if (b mod 3 =0) then a:=a+b;
if (b mod 2=0) then c:=c*b;
end;
writeln('сумма делящихся на 3=> ',a);
writeln('произведение делящихся на 2=> ',c);
end.