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

с помощью цикла while или for

Question

Таля

2 октября, 18:00

+3

Ответы (1)

Знаешь ответ?

Андрей · Answer 1

Var

P:real;

A:byte;

Begin

P:=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.

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