Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных
Категория: Delphi/Pascal
2011-12-09 17:08:40
code: #pascal
Program If18; Var A,B,C:Real; Begin WriteLn('Введите числa A,B и C: '); ReadLn(A,B,C); If (C = B) Then WriteLn('Номер числа, отличного от остальных: ',1) Else If (A = C) Then WriteLn('Номер числа, отличного от остальных: ',2) Else WriteLn('Номер числа, отличного от остальных: ',3); End.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: