В данный момент Кузнечик находится в точке 0. В какой точке он окажется после того, как выполнит три раза команду Вправо 3 и четыре раза команду Влево 2?

Цикл работает с разными интервалами. Допустим от -1 до 1 будет 2. От 1 до 2 будет 3. От 5 до 11 будет 38.

Объяснение:

program Sum_cifr;

var i, x, a, b, S:integer;

begin

 readln(a, b);

 S:=0;

 for i:= a to b do

   begin

   x:=Abs(i);     // делаем положительным число, если оно отрицательное

   while x>0 do                    // цикл, в котором будет число

       begin                             //будет разбиваться на цифры

       S:= S+(x mod 10);    // отсекаем у числа последнюю цифру

       x:= x div 10;            //  и складываем, а после убираем последнюю

                                       // цифру у самого числа

       end;

   end;

 writeln(S)

end.

1)

program FunctionIFfull;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4)  

 else  

     if x<=-1 then y:= sqr(x)+4*x  

     else y:=4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

2)

program FunctionIFshort;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4);

 if x<=-1 then y:= sqr(x)+4*x;

 if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

Объяснение:

1. Повна команда розгалуження має вигляд

if < логічний вираз > then <команда 1> else < команда 2 >;

2. Коротка команда розгалуження має вигляд

if <логічний вираз > then <команда 1>;