Максимум из
3-х чисел
Даны 3 целых различных числа.
Нужно определить, которое
из них самое большое.
Input
Со стандартного устройства ввода
вводится через пробел 3 целых числа, не превосходящих по модулю 10000.
Output
Нужно выдать на стандартное
устройство вывода через пробел ответ в следующем формате:
“First number is maximal”
“Second number is maximal”
“Third number is maximal”
Sample
Input
1234
4321 -432
Sample Output
Second number is maximal
Ответы
Ответ дал:
0
Написано на Pascal:
Program Max;
Var a, b, c: Integer;
Begin
Read(a);
Read(b);
Read(c);
If (abs(a) >10000) Or (abs(b) > 10000) Or (abs(c) > 10000) Then
WriteLn('Error!')
Else
Begin
If(a>b) Then
Begin
If(a > c) Then
WriteLn('First number is maximal')
Else
WriteLn('Third number is maximal')
End
Else If(b > c) Then
WriteLn('Second number is maximal')
Else
WriteLn('Third number is maximal');
End;
ReadLn;
End.
Program Max;
Var a, b, c: Integer;
Begin
Read(a);
Read(b);
Read(c);
If (abs(a) >10000) Or (abs(b) > 10000) Or (abs(c) > 10000) Then
WriteLn('Error!')
Else
Begin
If(a>b) Then
Begin
If(a > c) Then
WriteLn('First number is maximal')
Else
WriteLn('Third number is maximal')
End
Else If(b > c) Then
WriteLn('Second number is maximal')
Else
WriteLn('Third number is maximal');
End;
ReadLn;
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад