Нужна с информатикой. 22 номер оба . 1 лист нужно через while, 2 через for. ну на листах подписано через while или for делать.

реализовал на паскале

Объяснение:

program While22;

var i, num:integer;

isSimple : boolean;

Begin

isSimple :=true;

readln(num);

if (num mod 2 = 0) and (num<>2)then isSimple := false;

i:=3;

while i*i<=num do

begin

if (num mod i=0)then begin isSimple := false;break; end;

i:=i+2

end;

writeln(isSimple)

end.