Question

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

Answer 1

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

Answer 2

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.

Answer 3

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

Answer 4

адача номер 4

Answer 5

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

Answer 6

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
begin

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

end;

end.