Найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3 с цикла while или for

Question

Информатика: Найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3 с цикла while или for

0661246726 · Answer

Var   P:real;   A:byte;BeginP:=1;For A:= 1 to 100 do    if (A mod 7 = 0)and(A mod 3 0) then P:=P*A;WriteLn( P = ,P);End....