4 года назад

Найти и напечатать u=max {(xy+z)/5,(x+2yz)/3}

1 ответ:

NTG4 года назад

0 0

<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

begin
var x,y,z:real; Read(x,y,z);
Writeln(Max((x*y+z)/5,(x+2*y*z)/3))
end.

<u>Пример</u>
2.5 -3.7 10
0.15

Читайте также

Помогите написать программы в паскале, без воды.

Лёнчик365

<u>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>

<em>№1</em>

function f(a,x:real):=(sin(a*x)+x*x*x)/(exp(x)+abs(tan(x)));

begin
var a,x:real;
Write('Введите a,x: '); Read(a,x);
Writeln('y=',f(a,x))
end.

<u>Пример</u>
Введите a,x: -3.5 1.13
y=0.415984691762092

<em>№2</em>

function f(x:real):=sin(x)*cos(x);

function G(x:real):=cos(x)-sin(x);

begin
var a:=ReadReal('a=');
var b:=ReadReal('b=');
Writeln(f(a)*g(a)*f(a+b)*sqr(g(a-b)))
end.

<u>Пример</u>
a= -4.2
b= 1
-0.00583852364109992

<em>№3</em>

function m(a,b,c:real):=sqrt(2*(b*b+c*c)-a*a)/2;

begin
var a,b,c:real;
Writeln('Введите a b c: '); Read(a,b,c);
Writeln('ma=',m(a,b,c));
Writeln('mb=',m(b,a,c));
Writeln('mc=',m(c,a,b));
end.

<u>Пример</u>
Введите a b c:
4.15 6.2 7.18
ma=6.37891644403656
mb=4.97769524981191
mc=3.86563707556724

0 0

3 года назад

Напишите программу на Паскале, условие задачи в приложении

Лилия 85

<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var (H, W, D) := ReadInteger3;

Println((H div D) * (W div D))

end.

0 0

1 год назад

книга, набранная с помощью компьютера, имеет информационный объем 1 Мбит На каждой ее странице 32 строки по 64 символа. Чему рав

Lokesh

32 страницы при кодировке Unicode (стандартной)

0 0

4 года назад

Вычислите: 101010102 – 2528 + 716. Ответ запишите в десятичной системе счисления.

Икаев

101010102-2528+716=101008290

0 0

4 года назад

Пользователь вводит два числа. Найдите сумму и произведение данных чисел.

musthave [197]

var a,b,c,d;integer;

begin

readln(a,b);

c:=a+b;

d:=a*b;

writeln('сумма',c);

writeln('произведение',d);

end.

это для паскаля

0 0

4 года назад