Question

Найти произведение всех двухзначных чисел, кратных 3.
Язык программирования : Pascal

Answer 1

var

pr : longint;

i : integer;

begin

pr := 1;

for i := 10 to 99 do

if (i mod 3 = 0) then

pr := pr * i;

writeln(pr);

end.