Question

Помогите,в чем ошибка? пишет встречено 'then' ,а ожидалось ';' program n_8; var x,a,b,c,z:integer; begin writeln('Нахождение наибольшего числа'); write('Введите значения a,b,c,z>>'); readln(a,b,c,z); x:=a;if(a<b) then x:=b else(b<c)then x:=c else(c<z) then x:=zwriteln ('Наибольшее число 'x= ', x')end.

Answer 1

Сразу говорю будет считать неправильно, если делаешь проверку после else
нужно писать else if ...

Answer 2

В вашем коде есть несколько ошибок синтаксиса и логики. Вот исправленный вариант:

pascalCopy code
program n_8;

var
  x, a, b, c, z: integer;

begin
  writeln('Нахождение наибольшего числа');
  write('Введите значения a, b, c, z: ');
  readln(a, b, c, z);

  x := a;
  if b > x then
    x := b;
  if c > x then
    x := c;
  if z > x then
    x := z;

  writeln('Наибольшее число x = ', x);
end.

Исправления:

1. Заменил > на > и < на <. В Pascal используются обычные символы для сравнения (>, <, >=, <=, <>).
2. Вставил ключевые слова then после условий if.
3. Заменил несколько else на отдельные if для поиска максимального числа из четырех введенных.