Var x,y:real;
begin x:=0.5;
while x<2.1 do begin
y:=sqrt(1+x);
writeln(y:4:2);
x:=x+0.1;
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.