• Помогите пожалуйста
    Ошибка в Pascal (встречен конец файла, а ожидался оператор)
    program qq;
    var a,b,c,max:integer;
    begin
    writeln('Введите три целых числа и найдите наибольшее из них');
    read(a,b,c);
    if a>b then begin
    max:a;
    end;
    begin
    if c>a then begin
    max:c;
    writeln('Наибольшее число',max);
    end.

Ответы 6

  • Я так посмотрел ошибок море вот правельна написанное задание
    • Автор:

      smirkdpuo
    • 5 лет назад
    • 0
  • program qq;var a,b,c,max:integer;beginwriteln('Введите три целых числа и найдите наибольшее из них');read(a,b,c);if a>b thenwriteln('Наибольшее число',max);end.
    • Автор:

      belch8li6
    • 5 лет назад
    • 0
  • Да блин
  • Вот
  • program qq;var a,b,c,max:integer;beginwriteln('Введите три целых числа и найдите наибольшее из них');read(a,b,c);if (a>b) and (a>c) thenmas:=a;if (b>a) and (b>c) thenmas:=b;if (c>b) and (c>a) thenmas:=c;writeln('Наибольшее число',max);end.
    • Автор:

      kamren
    • 5 лет назад
    • 0
  • После max ты поставил ":" (max:a; max:c;) а надо ":=" (max:=a; max:=c;)
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years