Написать программу в Паскале: найти произведение чисел от 1 до n, кратных 3 через цикл while

Question

Марина _-_-_-_ · Accepted Answer

p:=1;
k:=1;
readln(n);
while k<=n div 3 do
begin
p:=p*3*k;
inc(k);
end;

Anna Vologina · Answer

uses crt;
var p, k, n:integer;
Begin
clrscr;
k:=1;
p:=1;
write('введите n');
Readln(n);
while k<=n do begin
 If (k mod 3=0) then p:=p*k;
 k:=k+1;
end;
Writeln('произведение чисел от 1 до ',n,' равно ',p);
End.

Artem Петелин · Answer

Кратный 3 -- это означает (n mod 3) = 0 -- остаток от деления на 3 равен нулю.
В цикле проверяйте кратность n и умножайте.