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

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

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

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.