кумир. используя пульт , выполните программу: опустить хвост вперед (100) вправо (90) вперед (100) вправо (90) вперед (100) вправо (90) вперед (100) • какую фигуру нарисовала черепаха? • как надо изменить программу, чтобы черепаха нарисовала ту же самую фигуру, но в два раза больше? • как изменится картинка, если все команды «вперед» заменить на команды «назад»? • как изменится картинка, если все команды «вправо» заменить на команды «влево»?

Відповідь:

Пояснення:

  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)    

Відповідь:

Пояснення:

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.