Program Max; Var a, b, c: Integer; Begin Write('a = '); ReadLn(a); Write('b = '); ReadLn(b); Write('c = '); ReadLn(c); If(a > b) Then Begin If(a > c) Then WriteLn(a) Else WriteLn(c); End Else If(b > c) Then WriteLn(b) Else WriteLn(c); ReadLn; End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
