Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите
1)найти F=vх/у если х≥0
у≠0
2)f=x²-√x/у-2 если х≥0
у≠2

Ответ оставил Гость

Задача №1

//Pascal
var x,y,f:real;
begin
  readln(x,y);
  if x>=0 then begin
     f:=sqrt(x)/y
     writeln(f)
  else
     writeln( x - не подходит);
end.

Задача №2

//Pascal
var x,y,f:real;
begin
  readln(x,y);
  if x>=0 then begin
     f:=(sqr(x)-sqrt(x))/(y-2);
     writeln(f)
  else
     writeln( x - не подходит);
end.