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

Помогите пожалуйста все, что сможете буду очень благодарна!!!!!!!!!! 25 баллов! СРОЧНО!!!!!!!!!!

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

Уровень A
1
var x,y:real;
begin
Readln(X); 
If x>5 then 
y:=(sqrt(x-5))/(2*x) 
else y:=(abs(x*x*x-10))/(2*x*x+1);
Writeln(y);
end.
-5 2.64705882352941
-2 2
0 10
5 2.25490196078431
12 0.110239637961025

2
var a,b:integer;
begin
Readln(a,b);
Writeln(max(a,b));
Writeln(max(a,b)-min(a,b));
end.