Var
x, n: integer;
begin
x := 1;
readln(n);
while x*x <= n do
begin
writeln(x);
x := x + 1;
end;
end.
Дерево - бумага
Рыба - еда
Вода - питьё
Кислород - воздух
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
если диск разделен на 2 логических диска (например C и D), то все нужные документы скидываете на логический диск D и при форматировании уазываете, что хотите почистить только диск С, тогда у Вас отформатированным получится та чать памяти, которая была отведена под диск С, а все, что находилось на диске D так и останется. Но если у Вас только один логический диск, то только путем скидывания на флешку или записи на CD\DVD.