Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>
1.Для чего предназначены базы даных?-Для осуществления хранения, поиска и сортировки данных.
//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.
А) Ечимпие или емнимпие (получилась какая-то безсмысслица)
Б) Код
И не "морза", а морзе :-)
3 квітки з кожної сторони = 12 квіток
Іпо 4 кутам по 1 квітці, тобто 1 кутова квітка буде відноситись до кожної-стороні.
Я виклав своє рішення, але краще подумати самому