Нужна помощь с информатикой. 22 номер оба задания. 1 лист нужно

Ответ:

воплотил на паскале

Объяснение:

program While22;

var i, num:integer;

isSimple : boolean;

Begin

isSimple :=true;

readln(num);

if (num mod 2 = 0) and (numlt;gt;2)then isSimple := false;

i:=3;

while i*ilt;=num do

begin

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

i:=i+2

end;

writeln(isSimple)

end.