Информатика; 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.
Должно сработать))