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

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

Question

Даниила

12 октября, 15:29

+2

Ответы (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