На вході програми маємо послідовність цілих чисел, що закінчується числом 0. потрібно знайти довжину даної послідовності, не враховуючи останнього нуля.

Одна тонкость - разность первых  2-ух чисел это из первого вычитаем второе или из второго первое? 

Program Chisla;

Uses Crt;

var a,b,c,d,sum:real;

begin

     clrscr;

     write('Введите первое число: ');

     readln(a);

      write('Введите второе число: ');

      readln(b);     

      write('Введите третье число: ');

      readln(c); 

      write('Введите четвёртое число: ');

      readln(d);

       sum:=a+b+c+d;

       if ((a-b)>d) and (sum<=80) then writeln(c,d)

             else

                   if (a-b)>d  then writeln(a,b,c,d)

            else

                 if  (sum<=80)  then writeln(a,b)

                    else    writeln(a+5,b+5,c+5,d+5);

     readkey;

end.

ответ: 9

Объяснение:

Изначально X = 1, i = 1. Потом идет цикл, который умножает x на 2 и увеличивает i на 1, пока выполняется условие (i<4). Получается:

i=1       x=1       i<4?ДА       =>       x = x*2 = 1*2 = 2         i = i+1 = 1+1 = 2

i=2      x=2      i<4?ДА       =>       x = x*2 = 2*2 = 4        i = i+1 = 2+1 = 3

i=3      x=4       i<4?ДА       =>       x = x*2 = 4*2 = 8       i = i+1 = 3+1 = 4

i=4      x=8       i<4?НЕТ       =>       ВЫХОД

x = x+1 = 8+1 = 9