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