Program pr;
uses crt;
Var a, b, c, y:real;
Begin
Writeln('Введите a, b, c');
readln(a, b, c);
y:=exp(3*ln(b))+sqrt(c)-sqrt(a);
Writeln('y=', y);
readln;
end.
1. х=40, у=10
2. х=20, у=20
3. х=50, у=20
4. х=56, у=30
5. х=60, у=28
6. х=60, у=40
7. х=70, у=40
8. х=70, у=50
9. х=80, у=50
10.х=80, у=40
11х=90, у=40
12. х=90, у=28
13.х=100, у=28
14. х=100, у=20
15. х=110, у=20
16. х=110, у=10
17. х=40, у=10
Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
МОРЕ-ГОРЕ-ГОРА-КОРА-КОМА-КУМА-СУМА-СУША