Відповідь:
Пояснення:
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.
Відповідь:
Пояснення:
If1.
a=int(input("число:"))
if a>0:
m=a-8
else:
m=a
print (m)
If2.
a=int(input("число:"))
if a>0:
m=a-8
else:
m=a+6
print (m)
If3.
a=int(input("число:"))
if a>0:
m=a-8
elif a<0:
m=a+6
elif a==0:
m=10
print(m)
If4.
a=int(input("число a:"))
b=int(input("число b:"))
c=int(input("число c:"))
m=0
if a>0:
m=m+1
if b>0:
m=m+1
if c >0:
m=m+1
print('Додатніх чисел є', m)
If5.
a=int(input("число a:"))
b=int(input("число b:"))
c=int(input("число c:"))
m=0
k=0
if a>0:
m=m+1
else:
k=k+1
if b>0:
m=m+1
else:
k=k+1
if c >0:
m=m+1
else:
k=k+1
print('Додатніх чисел є', m)
print('Відємних чисел є', k)
If6°
a=int(input("число a:"))
b=int(input("число b:"))
if a>b:
print('Більше число', a)
else:
print('Більше число', b)