Question

ПОМОГИТЕ!!!СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.
1)y=a+b-c+2abc-7
2)y=cos2X3-X/A A=0,5 X=1,4
3)ЕСЛИ a>b ТО y=a+b ИНАЧЕ y=a-b
4)ЕСЛИ a>b ТО y=2*a+b-1 ИНАЧЕ y=3*b
5)X=a*a+b*b (a=74;b=25)
6)СОЗДАЙТЕ ПРОГРАММУ, КОТОРАЯ ВЫЧИСЛЯЕТ КВАДРАТ ВВЕДЕННОГО ЧИСЛА

Answer 1

Відповідь:

Пояснення:

Program  Odun;

var a, b, c, y: real;

begin

Write('Число a');

Readln(a);

Write('Число b');

Readln(b);

Write('Число c');

Readln(c);

y:=a+b-c+2*a*b*c-7;

Writeln('Значення у =', y);

end.

Program  DWA;

var y: real;

const A=0.5; X=1.4;

begin

y:=(cos(2+x*x*x)-X)/A;

Writeln('y =', y);

end.

Program TRU;

var a, b, y: real;

begin

Write('число à');

Readln(a);

Write('число b');

Readln(b);

if a >= b  then

y:=a+b

else

y:=a-b;

Writeln('y=' ,y);

Readln;

end.

Program Choturu;

var a, b, y: real;

begin

Write('число а');

Readln(a);

Write('чмсло b');

Readln(b);

if a > b  then

y:=2*a+b-1

else

y:=3*b;

Writeln('y=' ,y);

Readln;

end.

Program  Pjat;

var x: real;

const a=74; b=25;

begin

X:=a*a+b*b;

Writeln('x =', x);

end.

Program  Shist;

var a, y: real;

begin

Write('Число a');

Readln(a);  

y:=sqr(a);

Writeln('Значення у =', y);

end.