Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.
Категория: Delphi/Pascal
2011-12-09 17:56:05
code: #pascal
Program If29; Var x:Integer; Begin ReadLn(x); If x < 0 Then Write('отрицательное '); If x > 0 Then Write('положительное '); If x = 0 Then Write('нулевое '); If x Mod 2 = 0 Then WriteLn('четное ') Else WriteLn('нечетное '); End.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: