Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program O_O;
var x,y:real;
begin
writeln('x= ');
readln(x);
y:=x-sqrt(x+2);
writeln('y=',y);
readln;
end.
var x,y:real;
begin
writeln('x= ');
readln(x);
y:=x-sqrt(x+2);
writeln('y=',y);
readln;
end.
Соседние файлы в папке Паскаль