• Написать программу в паскале. Дать 3 числа, определить максимальное из них.

Ответы 2

  • Var   a,b,c,max:integer;Begin     Writeln('Введите 3 числа!');     Readln(a,b,c);     If a>b then max:=a                     else max:=b;     If max>c then max:=max                            else max:=c;     Writeln('Макс = ', max);End.
    • Автор:

      virginia
    • 6 лет назад
    • 0
  • var a,b,c:integer;begin;writeln('Введите 3 числа');readln(a);readln(b);readln(c);if (a>b) and (a>c) thenwriteln('Первое')      else      begin;         if (b>a) and (b>c) then         writeln('Второе')               else               writeln('Третье');      end;end.
    • Автор:

      charlie10
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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