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

Question

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

---

---

Comments

Паскаль? Хотя, куда же без него

Answer 1

Ответ:

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

Объяснение:

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</p>

begin

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

i:=i+2

end;

writeln(isSimple)

end.