Определите сколько первых четных чисел не превышают в произведении 200 , напишите решение ❤️

Question

Информатика: Определите сколько первых четных чисел не превышают в произведении 200 , напишите решение ❤️

Alievsergei · Answer

Var i,p,k:integer;begink:=0; p:=1; i:=2;while p 200 do begin p:=p*i; k:=k+1; i:=i+2; end;writeln( k = ,k);end.Результат:k = 4...