А) 14
б) 2002
тут все очень легко, просто число, стоящее перед Х
Program kek;var r,q,z,s,n:integer;beginwrite ('введите непустую невозрастающуюю последовательность целых чисел, заканчивающуююся нулем');readln (n);z:=0;q:=1;while n<>0 dobeginif n=z then q:=q+1 else z:=n;readln (n); end;write ('кол-во одинаковых, идущих подряд чисел равно ', q);end.
Переменную строки буду называть .
1.16.
1.17.
а-я
1.18.
Потребуется использовать
c := (2 / (7 + x) + Sqrt(x - 78)) / (Abs(y * y - 144) + x * x * x);
b := (Sqrt(x) + 4) / (Abs(y) - 2);