1)2 2)3 3)1 4)3 вот как то так
Включить другие водопады и написать года их открытия/ высоту
Земляника , малина , яблоко, вишня , смородина
Здесь небольшая проблемка: при больших R некоторых частей функций не будет видно...
Но тем не менее;
uses Crt;
var x, y, R: real;
begin
ClrScr;
Write(' X = '); ReadLn(X);
Write(' R = '); ReadLn(R);
if x<=-R then y:=-3 else
if (x>=-R) and (x<=R) then y:=-sqrt(R*R-x*x) else
if (x>R) and (x<6) then y:=3+6*(x-6)/(R-6) else
if (x>=6) then y:=(x-9);
ReadLn;
end.
Единственное, что осталось - распечатать значения Y...
Но по условию распечатка Y вроде не требуется... Или я чего-то не понимаю...
//PascalABC.NET 3.2 сборка 1318
Var
a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.
Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064