Информатика; 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.
Ответы
1. Выполните действие:
а) 0,507 • 39= 19,773;
В дробях 507/1000• 39/1= 19773/1000= 19 773/1000.
б) 3,84 • 45= 172,8;
В дробях 384/100• 45/1= 384/20• 9/1= 3456/20= 172 16/20= 172 4/5.
в) 3,216 : 67= 0,048;
3216/1000: 67/1= 3216/1000• 1/67= 48/1000• 1/1= 6/125;
г) 5 : 16= 0,3125;
5/1: 16/1= 5/1• 1/16= 5/16;
2. Найдите значение выражения
40 - 26 • (26,6 : 19)= 40-26•1,4= 40- 36,4=3,6;
В дробях 40-26• (266/10: 19/1)= 40- 26• (133/5• 1/19)= 40-26• (7/5• 1/1)= 40- 26/1• 7/5= 40/1- 182/5= (40•5)/(1•5) - 182/5= 200/5 -182/5= 18/5= 3 3/5.
3. 6 коробок печенья и 5 коробок шоколадных конфет весят 6,2 кг. Сколько весит 1 коробка конфет, если 1 коробка печенья весит 0,6 кг?
6к печ + 5к конф =6,2 кг;
1к печ =0,6 кг;
1к конф =?;
1)) 6,2 - 6• 0,6= 6,2- 3,6= 2,6кг весят все конфеты;
2)) 2,6 :5= 0,52кг весит 1 коробка конфет;
ответ: 1 коробка конфет конфет весит 0,52кг.
В граммах 1кг =1000г;
6,2•1000=6200г; 0,6•1000=600г;
1))6200-600•6= 6200- 3600= 2600г все конфеты;
2)) 2600:5= 520г весит 1 коробка конфет.
4. Решите уравнение:
а) 9х + 3,9 = 31,8;
9х= 31,8- 3,9;
9х= 27,9;
Х=27,9 :9;
Х= 3,1;
Проверка;
9х+ 3,9=31,8;
9•3,1+ 3,9= 27,9+ 3,9= 31,8;
б) (у + 4,5): 7 = 1,2.
У+4,5=1,2•7;
У+4,5=8,4;
У=8,4-4,5;
У=3,9;
Проверка
(У+4,5):7=1,2;
(3,9+4,5):7= 8,4:7=1,2.
5. Если в некоторой десятичной дроби перенести запятую через один знак влево, то она уменьшится на 2,25. Найдите эту дробь.
Дано дробь Х, переносим влево через один знак, дробь меньше будет в 10раз; Х:10;
Х- (Х:10)=2,25;
Х- Х•0,1=2,25;
0,9х=2,25;
Х=2,25:0,9;
Х=2,5;
Проверка
2,5-(2,5:10)=2,25;
2,5-(2,5•0,1)= 2,5-0,25= 2,25.
ответ: дробь 2,5.
а) 0,507 • 39= 19,773;
В дробях 507/1000• 39/1= 19773/1000= 19 773/1000.
б) 3,84 • 45= 172,8;
В дробях 384/100• 45/1= 384/20• 9/1= 3456/20= 172 16/20= 172 4/5.
в) 3,216 : 67= 0,048;
3216/1000: 67/1= 3216/1000• 1/67= 48/1000• 1/1= 6/125;
г) 5 : 16= 0,3125;
5/1: 16/1= 5/1• 1/16= 5/16;
2. Найдите значение выражения
40 - 26 • (26,6 : 19)= 40-26•1,4= 40- 36,4=3,6;
В дробях 40-26• (266/10: 19/1)= 40- 26• (133/5• 1/19)= 40-26• (7/5• 1/1)= 40- 26/1• 7/5= 40/1- 182/5= (40•5)/(1•5) - 182/5= 200/5 -182/5= 18/5= 3 3/5.
3. 6 коробок печенья и 5 коробок шоколадных конфет весят 6,2 кг. Сколько весит 1 коробка конфет, если 1 коробка печенья весит 0,6 кг?
6к печ + 5к конф =6,2 кг;
1к печ =0,6 кг;
1к конф =?;
1)) 6,2 - 6• 0,6= 6,2- 3,6= 2,6кг весят все конфеты;
2)) 2,6 :5= 0,52кг весит 1 коробка конфет;
ответ: 1 коробка конфет конфет весит 0,52кг.
В граммах 1кг =1000г;
6,2•1000=6200г; 0,6•1000=600г;
1))6200-600•6= 6200- 3600= 2600г все конфеты;
2)) 2600:5= 520г весит 1 коробка конфет.
4. Решите уравнение:
а) 9х + 3,9 = 31,8;
9х= 31,8- 3,9;
9х= 27,9;
Х=27,9 :9;
Х= 3,1;
Проверка;
9х+ 3,9=31,8;
9•3,1+ 3,9= 27,9+ 3,9= 31,8;
б) (у + 4,5): 7 = 1,2.
У+4,5=1,2•7;
У+4,5=8,4;
У=8,4-4,5;
У=3,9;
Проверка
(У+4,5):7=1,2;
(3,9+4,5):7= 8,4:7=1,2.
5. Если в некоторой десятичной дроби перенести запятую через один знак влево, то она уменьшится на 2,25. Найдите эту дробь.
Дано дробь Х, переносим влево через один знак, дробь меньше будет в 10раз; Х:10;
Х- (Х:10)=2,25;
Х- Х•0,1=2,25;
0,9х=2,25;
Х=2,25:0,9;
Х=2,5;
Проверка
2,5-(2,5:10)=2,25;
2,5-(2,5•0,1)= 2,5-0,25= 2,25.
ответ: дробь 2,5.
1. Выполните действие:
а) 0,507 • 39= 19,773;
В дробях 507/1000• 39/1= 19773/1000= 19 773/1000.
б) 3,84 • 45= 172,8;
В дробях 384/100• 45/1= 384/20• 9/1= 3456/20= 172 16/20= 172 4/5.
в) 3,216 : 67= 0,048;
3216/1000: 67/1= 3216/1000• 1/67= 48/1000• 1/1= 6/125;
г) 5 : 16= 0,3125;
5/1: 16/1= 5/1• 1/16= 5/16;
2. Найдите значение выражения
40 - 26 • (26,6 : 19)= 40-26•1,4= 40- 36,4=3,6;
В дробях 40-26• (266/10: 19/1)= 40- 26• (133/5• 1/19)= 40-26• (7/5• 1/1)= 40- 26/1• 7/5= 40/1- 182/5= (40•5)/(1•5) - 182/5= 200/5 -182/5= 18/5= 3 3/5.
3. 6 коробок печенья и 5 коробок шоколадных конфет весят 6,2 кг. Сколько весит 1 коробка конфет, если 1 коробка печенья весит 0,6 кг?
6к печ + 5к конф =6,2 кг;
1к печ =0,6 кг;
1к конф =?;
1)) 6,2 - 6• 0,6= 6,2- 3,6= 2,6кг весят все конфеты;
2)) 2,6 :5= 0,52кг весит 1 коробка конфет;
ответ: 1 коробка конфет конфет весит 0,52кг.
В граммах 1кг =1000г;
6,2•1000=6200г; 0,6•1000=600г;
1))6200-600•6= 6200- 3600= 2600г все конфеты;
2)) 2600:5= 520г весит 1 коробка конфет.
4. Решите уравнение:
а) 9х + 3,9 = 31,8;
9х= 31,8- 3,9;
9х= 27,9;
Х=27,9 :9;
Х= 3,1;
Проверка;
9х+ 3,9=31,8;
9•3,1+ 3,9= 27,9+ 3,9= 31,8;
б) (у + 4,5): 7 = 1,2.
У+4,5=1,2•7;
У+4,5=8,4;
У=8,4-4,5;
У=3,9;
Проверка
(У+4,5):7=1,2;
(3,9+4,5):7= 8,4:7=1,2.
5. Если в некоторой десятичной дроби перенести запятую через один знак влево, то она уменьшится на 2,25. Найдите эту дробь.
Дано дробь Х, переносим влево через один знак, дробь меньше будет в 10раз; Х:10;
Х- (Х:10)=2,25;
Х- Х•0,1=2,25;
0,9х=2,25;
Х=2,25:0,9;
Х=2,5;
Проверка
2,5-(2,5:10)=2,25;
2,5-(2,5•0,1)= 2,5-0,25= 2,25.
ответ: дробь 2,5.
а) 0,507 • 39= 19,773;
В дробях 507/1000• 39/1= 19773/1000= 19 773/1000.
б) 3,84 • 45= 172,8;
В дробях 384/100• 45/1= 384/20• 9/1= 3456/20= 172 16/20= 172 4/5.
в) 3,216 : 67= 0,048;
3216/1000: 67/1= 3216/1000• 1/67= 48/1000• 1/1= 6/125;
г) 5 : 16= 0,3125;
5/1: 16/1= 5/1• 1/16= 5/16;
2. Найдите значение выражения
40 - 26 • (26,6 : 19)= 40-26•1,4= 40- 36,4=3,6;
В дробях 40-26• (266/10: 19/1)= 40- 26• (133/5• 1/19)= 40-26• (7/5• 1/1)= 40- 26/1• 7/5= 40/1- 182/5= (40•5)/(1•5) - 182/5= 200/5 -182/5= 18/5= 3 3/5.
3. 6 коробок печенья и 5 коробок шоколадных конфет весят 6,2 кг. Сколько весит 1 коробка конфет, если 1 коробка печенья весит 0,6 кг?
6к печ + 5к конф =6,2 кг;
1к печ =0,6 кг;
1к конф =?;
1)) 6,2 - 6• 0,6= 6,2- 3,6= 2,6кг весят все конфеты;
2)) 2,6 :5= 0,52кг весит 1 коробка конфет;
ответ: 1 коробка конфет конфет весит 0,52кг.
В граммах 1кг =1000г;
6,2•1000=6200г; 0,6•1000=600г;
1))6200-600•6= 6200- 3600= 2600г все конфеты;
2)) 2600:5= 520г весит 1 коробка конфет.
4. Решите уравнение:
а) 9х + 3,9 = 31,8;
9х= 31,8- 3,9;
9х= 27,9;
Х=27,9 :9;
Х= 3,1;
Проверка;
9х+ 3,9=31,8;
9•3,1+ 3,9= 27,9+ 3,9= 31,8;
б) (у + 4,5): 7 = 1,2.
У+4,5=1,2•7;
У+4,5=8,4;
У=8,4-4,5;
У=3,9;
Проверка
(У+4,5):7=1,2;
(3,9+4,5):7= 8,4:7=1,2.
5. Если в некоторой десятичной дроби перенести запятую через один знак влево, то она уменьшится на 2,25. Найдите эту дробь.
Дано дробь Х, переносим влево через один знак, дробь меньше будет в 10раз; Х:10;
Х- (Х:10)=2,25;
Х- Х•0,1=2,25;
0,9х=2,25;
Х=2,25:0,9;
Х=2,5;
Проверка
2,5-(2,5:10)=2,25;
2,5-(2,5•0,1)= 2,5-0,25= 2,25.
ответ: дробь 2,5.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
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.
Должно сработать))