Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. проверка проста - у всех шестеренок должен быть одинаковое количество зубцов. формат входных данных вводится целое положительное число n, где n - количество деталей для проверки (2 < n < 1000) вводится n целых чисел m, где m - количество зубцов у каждой шестеренки (1 < m < 100) формат выходных данных выводится сообщение yes в случае, если количество зубцов у всех шестеренок оказалось одинаковым и no, если хотя бы одна из них имеет отличное от других количество зубцов найти ошибку var n, s, i, m, m1: int64; begin s: =0; read(n, m1); for i: =1 to n-1 do begin read(m); if m = m1 then s: =s+1; m: =m1; end; if s = n or m1 then begin write('yes'); end; if s < > n or m1 then write('no'); end. 45

//ошибка в if.

//в принципе можно обойтись и без вычисления s. просто

//прерывать   цикл при несовпадении двух шестеренок и

//выводить no

var

  n, s, i, m, m1: int64;

begin

  s : = 0;

  read(n, m1);

  for i : = 1 to n - 1 do

  begin

    read(m);

    if m = m1 then

      s : = s + 1;

    m : = m1;

  end;

  if (s = n - 1) then  

    write('yes');

  if (s < > n - 1) then

    write('no');

end.

Var a,b: real; c: integer; begin writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); readln(c); while c < > 0 do     begin     write('введите два числа: ');     readln(a,b);     write('ответ: ');     case c of     1: writeln(a+b);     2: writeln(a-b);     3: writeln(a*b);     4: writeln(a/b);     end;     writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');     readln(c);     end; writeln('пока! '); end. вывод результат, точно как в условии: var a,b: real;       c: integer; begin writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход'); readln(c); while c < > 0 do     begin     write('введите два числа: ');     readln(a,b);     write('ответ: ');     case c of     1:         if b < 0 then writeln(a,b,'=',a+b)         else writeln(a,'+',b,'=',a+b);     2:         if b < 0 then writeln(a,'+',-b,'=',a-b)         else writeln(a,b,'=',a-b);     3:         if b < 0 then writeln(a,'*(',b,')=',a*b)         else writeln(a,'*',b,'=',a*b);     4:         if b < 0 then writeln(a,': (',b,')=',a/b)         else writeln(a,': ',b,'=',a/b);     end;     writeln('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');     readln(c);     end; writeln('пока! '); end. пример: 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 4 введите два числа: 4 -2.5 ответ: 4: (-2.5)=-1.6 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 1 введите два числа: -3 -6 ответ: -3-6=-9 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход 0 пока!

Var a,b,c,x: real; begin  repeat  writeln('введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу');   readln(x);   if x=1   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a+b;     writeln('ответ: ',c);     end;   if x=2   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a-b;     writeln('ответ: ',c);     end;   if x=3   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a*b;     writeln('ответ: ',c);     end;   if x=4   then    begin    writeln('введите 2 числа');     readln(a,b);     c: =a/b;     writeln('ответ: ',c);     end;   if x=0 then writeln('пока! ');   until x=0; end.