Question

Program gg; var a,b,c,d,e,max:integer; begin writeLn('введите пять целых чисел'); read(a,b,c,d,e); if (a>=b) and (a>=c) and (a>=d) and (a>=e) then begin max:=a; end else begin if (b>=a) and (b>=c) and (b>=d) and (b>=e) then begin max:=b; end else begin if (c>=b) and (c>=a) and (c>=d) and (c>=e) then begin max:=c; end else begin if (d>=b) and (d>=c) and (d>=a) and (d>=e) then begin max:=a; end else begin max:=e; end; writeln('наибольшее число ',max); end. где ошибка?

Answer 1

{
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
program gg;
var
  a, b, c, d, e, max: integer;

begin
  writeLn('введите пять целых чисел');
  read(a, b, c, d, e);
  if (a >= b) and (a >= c) and (a >= d) and (a >= e) then
    max := a
  else
  if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
    max := b
  else
  if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
    max := c
  else
  if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
    max := a
  else
    max := e;
  writeln('наибольшее число ', max);
end.
----------------------------------------------------------------------------
Форматирование кода:
   if (****) then
        begin
            оператор1;
            оператор2;
        end
   else
        begin
            оператор1;
            оператор2;
        end;
}

-----------------------------------------------------------------------------
Включите мозг и напишите нормальный код
program gg;

var
  a, b, c, d, e, max: integer;

begin
  writeLn('введите пять целых чисел');
  read(a, b, c, d, e);
  max:=a;
  if b > max then max:=b;
  if c > max then max:=c;
  if d > max then max:=d;
  if e > max then max:=e;
  Writeln(max);
end.


----or-----
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e)))));
end.

Answer 2

В представленном коде на языке Pascal отсутствуют объявления переменных и операторы присваивания. Также в коде присутствуют ошибки в синтаксисе, такие как использование символа ">" вместо ">" и отсутствие точек с запятой в конце операторов.

Вот исправленный код:

Program gg;
var
  a, b, c, d, e, max: integer;
begin
  writeLn('Введите пять целых чисел');
  read(a, b, c, d, e);
  
  max := a;
  
  if (b > max) then
    max := b;
  if (c > max) then
    max := c;
  if (d > max) then
    max := d;
  if (e > max) then
    max := e;
  
  writeln('Наибольшее число: ', max);
end.

В этом исправленном коде объявлены переменные `a`, `b`, `c`, `d`, `e` и `max`. Затем вводятся пять целых чисел с помощью `read`. Затем переменная `max` инициализируется значением `a`.

Затем с помощью условных операторов `if` проверяется, является ли каждое из чисел `b`, `c`, `d`, `e` больше текущего значения `max`. Если это так, то значение `max` обновляется.

Наконец, с помощью `writeln` выводится наибольшее число.

Обратите внимание: Предоставленный код является кодом на языке Pascal, а не на языке программирования C++. Если вам нужна помощь с кодом на языке C++, пожалуйста, предоставьте соответствующий код.