ПОМОГИТЕ!!!СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.
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)СОЗДАЙТЕ ПРОГРАММУ, КОТОРАЯ ВЫЧИСЛЯЕТ КВАДРАТ ВВЕДЕННОГО ЧИСЛА
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)СОЗДАЙТЕ ПРОГРАММУ, КОТОРАЯ ВЫЧИСЛЯЕТ КВАДРАТ ВВЕДЕННОГО ЧИСЛА
More Questions From This User See All
Answers & Comments
Відповідь:
Пояснення:
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.