Var
k, x, z: real;
begin
readln(x);
readln(z);
if x > z then
k := sqrt(2 * (x - z) / z);
if x <= z then
k := x + z;
println(k);
end.
да выполнение кр это обработка информации как и разгадывание кроссвордов а 3 это скорее всего запоминание информации так как надо запомнить движения и не забыть сделать и передача информации на конечности
Var
m,n,i: byte;
begin
writeln ('M=');
writeln ('N=');
readln(m);
readln(n);
for i:=n to m do
if i mod 2=0 then write (i,' ');
readln;
end.