Question

Верно ли я ввела? program Z_2; Var a, b, c:integer; Begin read (a,b,c); if (a>b) and (a>c) then write ('наибольшее',a) else if (b>a) and (b>c) then write ('наибольшее',b) else if (c>a) and (c>b) then write ('наибольшее',c); end. Мне выдает, что 4 строка имеет неверный формат может, что-нибудь неверно?

Answer 1

Отформатированный текст работающей программы

program Z_2;

var
 a, b, c:integer;

begin
  Read (a,b,c);
  if (a>b) and (a>c) then
    Write ('наибольшее ',a)
  else
    if (b>a) and (b>c) then
      Write ('наибольшее ',b)
    else
      if (c>a) and (c>b) then Write ('наибольшее ',c)
end.

Answer 2

Ваш код на языке Pascal имеет некоторые ошибки. Вот подробное объяснение:

Ошибки в коде:

1. В строке 4 вы используете функцию `read`, чтобы считать значения `a`, `b` и `c`. Однако, вы должны использовать оператор `readln`, чтобы считать значения и перейти на следующую строку. Исправьте эту ошибку, заменив `read` на `readln`.

2. В строке 5 у вас отсутствует пробел перед оператором `and`. Добавьте пробел перед `and`, чтобы исправить эту ошибку.

3. В строках 6, 8 и 10 у вас отсутствует пробел перед оператором `write`. Добавьте пробел перед `write`, чтобы исправить эту ошибку.

Исправленный код:

``` program Z_2; Var a, b, c: integer; Begin readln(a, b, c); if (a > b) and (a > c) then write('наибольшее ', a) else if (b > a) and (b > c) then write('наибольшее ', b) else if (c > a) and (c > b) then write('наибольшее ', c); end. ```

Теперь ваш код должен работать правильно.