Кто понимает паскаль!
Y1=sqrt(x); Y2=1/x;Y3=x/2
X∈[1;k] c началом 0,5.
Помогите!!!

Var x,y1,y2,y3:real;
k:integer;
begin
readln(k);
x:=1;
repeat
y1:=x;
write(y1:3:2, );
y2:=1/x;
write(y2:3:2, );
y3:=x/2;
write(y3:3:2);
x+=0.5;
writeln;
until x>k;
end.

как я понял

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.