Помогите с информатикой 7 класс, цикл с предусловием while, 3 и 4 задачи

Question

Помогите с информатикой 7 класс, цикл с предусловием while, 3 и 4 задачи

---

Answer 1

Решение ниже в комментарии

Comments

задача номер 3

---

---------------------------------

---

program HelloWorld;

var

n, i : integer;
b : boolean;

begin

i:=0;
b:=false;

read(n);

while b=false do
begin

if i*i>n then b:=true else writeln(i);
i:=i+1;

end;

end.

---

-------------------------

---

адача номер 4

---

------------------------------

---

program HelloWorld;

var

n, i, mem0, mem1, mem2 : integer;

begin

i:=0;
mem0:=0;
mem1:=1;

read(n);

writeln(mem0);
writeln(mem1);

while i<=n do<br> begin

i:=i+1;
mem2:=mem0+mem1;
writeln(mem2);
mem0:=mem1;
mem1:=mem2;

end;

end.