Опубликовано 13.06.2017 по предмету Другие предметы от Гость >> <<

Информатика; Pascal
можете сказать что здесь не так??
Program Vozrast;
var
i : integer;
begin
write(Введите возраст: )
readln(i);
if i < 1 or i > 150 then begin
writeln(Это туфта, насяльника!);
halt;
end;
case i of
1: writeln(1 год);
2: writeln(2 года);
3: writeln(3 года);
4: writeln(4 года);
5: writeln(5 лет);
6: writeln(6 лет);
7: writeln(7 лет);
8: writeln(8 лет);
9: writeln(9 лет);
10: writeln(10 лет);
11: writeln(11 лет);
12: writeln(12 лет);
13: writeln(13 лет);
14: writeln(14 лет);
15: writeln(15 лет);
16: writeln(16 лет);
17: writeln(17 лет);
18: writeln(18 лет);
19: writeln(19 лет);
20: writeln(20 лет);
21: writeln(21 год);
22: writeln(22 года);
23: writeln(23 года);
24: writeln(24 года);
25: writeln(25 лет);
26: writeln(26 лет);
27: writeln(27 лет);
28: writeln(28 лет);
29: writeln(29 лет);
30: writeln(30 лет);
31: writeln(31 год);
32: writeln(32 года);
33: writeln(33 года);
34: writeln(34 года);
35: writeln(35 лет);
36: writeln(36 лет);
37: writeln(37 лет);
38: writeln(38 лет);
39: writeln(39 лет);
40: writeln(40 лет);
41: writeln(41 год);
42: writeln(42 года);
43: writeln(43 года);
44: writeln(44 года);
45: writeln(45 лет);
46: writeln(46 лет);
47: writeln(47 лет);
48: writeln(48 лет);
49: writeln(49 лет);
50: writeln(50 лет);
51: writeln(51 год);
52: writeln(52 года);
53: writeln(53 года);
54: writeln(54 года);
55: writeln(55 лет);
56: writeln(56 лет);
57: writeln(57 лет);
58: writeln(58 лет);
59: writeln(59 лет);
60: writeln(60 лет);
61: writeln(61 год);
62: writeln(62 года);
63: writeln(63 года);
64: writeln(64 года);
65: writeln(65 лет);
66: writeln(66 лет);
67: writeln(67 лет);
68: writeln(68 лет);
69: writeln(69 лет);
70: writeln(70 лет);
71: writeln(71 год);
72: writeln(72 года);
73: writeln(73 года);
74: writeln(74 года);
75: writeln(75 лет);
76: writeln(76 лет);
77: writeln(77 лет);
78: writeln(78 лет);
79: writeln(79 лет);
80: writeln(80 лет);
81: writeln(81 год);
82: writeln(82 года);
83: writeln(83 года);
84: writeln(84 года);
85: writeln(85 лет);
86: writeln(86 лет);
87: writeln(87 лет);
88: writeln(88 лет);
89: writeln(89 лет);
90: writeln(90 лет);
91: writeln(91 год);
92: writeln(92 года);
93: writeln(93 года);
94: writeln(94 года);
95: writeln(95 лет);
96: writeln(96 лет);
97: writeln(97 лет);
98: writeln(98 лет);
99: writeln(99 лет);
100: writeln(100 лет);
101: writeln(101 год);
102: writeln(102 года);
103: writeln(103 года);
104: writeln(104 года);
105: writeln(105 лет);
106: writeln(106 лет);
107: writeln(107 лет);
108: writeln(108 лет);
109: writeln(109 лет);
110: writeln(110 лет);
111: writeln(111 лет);
112: writeln(112 лет);
113: writeln(113 лет);
114: writeln(114 лет);
115: writeln(115 лет);
116: writeln(116 лет);
117: writeln(117 лет);
118: writeln(118 лет);
119: writeln(119 лет);
120: writeln(120 лет);
121: writeln(121 год);
122: writeln(122 года);
123: writeln(123 года);
124: writeln(124 года);
125: writeln(125 лет);
126: writeln(126 лет);
127: writeln(127 лет);
128: writeln(128 лет);
129: writeln(129 лет);
130: writeln(130 лет);
131: writeln(131 год);
132: writeln(132 года);
133: writeln(133 года);
134: writeln(134 года);
135: writeln(135 лет);
136: writeln(136 лет);
137: writeln(137 лет);
138: writeln(138 лет);
139: writeln(139 лет);
140: writeln(140 лет);
141: writeln(141 год);
142: writeln(142 года);
143: writeln(143 года);
144: writeln(144 года);
145: writeln(145 лет);
146: writeln(146 лет);
147: writeln(147 лет);
148: writeln(148 лет);
149: writeln(149 лет);
150: writeln(150 лет);
end;
end.

Ответ оставил Гость

Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет))
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:

Program Vozrast;
var i: integer;
begin
writln (Введите возраст: );
readln(i);
if (i < 1) or (i > 150) then
  writeln (Это туфта, насяльника!);
if (i <> 11) and (i mod 10 = 1) then
  writeln (i, год);
if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then
 writeln (i, года);
if ((i  > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then
  Writeln (i, лет);
end.

Должно сработать))