Все 6-буквенные слова, составленные из букв А, О, И, Э, У, записаны в алфавитном порядке и пронумерованы. Вот начало списка: 1. 2. И 3. О 4. У …… Под каким номером стоит последнее слово, начинающееся и заканчивающееся буквой О?
Var i,n:integer; s:string; a:array[1..32,1..2] of string; begin n:=1; for i:=Ord('А') to Ord('Я') do begin Str(i,s); a[n,1]:=Chr(i)+' - '+s; Inc(n); end; n:=1; for i:=Ord('а') to Ord('я') do begin Str(i,s); a[n,2]:=Chr(i)+' - '+s; Inc(n); end; for i:=1 to 32 do writeln(a[i,1],' ',a[i,2]) end.
Результат выполнения программы в среде PascalABC.Net А - 192 а - 224 Б - 193 б - 225 В - 194 в - 226 Г - 195 г - 227 Д - 196 д - 228 Е - 197 е - 229 Ж - 198 ж - 230 З - 199 з - 231 И - 200 и - 232 Й - 201 й - 233 К - 202 к - 234 Л - 203 л - 235 М - 204 м - 236 Н - 205 н - 237 О - 206 о - 238 П - 207 п - 239 Р - 208 р - 240 С - 209 с - 241 Т - 210 т - 242 У - 211 у - 243 Ф - 212 ф - 244 Х - 213 х - 245 Ц - 214 ц - 246 Ч - 215 ч - 247 Ш - 216 ш - 248 Щ - 217 щ - 249 Ъ - 218 ъ - 250 Ы - 219 ы - 251 Ь - 220 ь - 252 Э - 221 э - 253 Ю - 222 ю - 254 Я - 223 я - 255
Вопрос 1 A) Номер вагона - числовой целочисленный (целый) тип, если не используется дополнительная нумерация. например, "0Б" - нулевой, багажный. Б) Сорт яблок - символьный тип. В) Количество дней в отпуске - целый тип Вопрос 2 ‘сорок’ - символьный тип 115 - целый тип 0.15 - вещественный тип Вопрос 3 целый тип (BYTE): -46, 15 вещественный тип: -0.326 литерный (символьный) тип: '5', 'g' строковый тип: ‘море’ Вопрос 4 площадь квартиры - постоянная, если речь об одной квартире, в которой не делается перепланировок; название кинотеатра - может быть изменено, но редко, я бы отнес к постоянной; количество дней в феврале месяце - переменная, зависит от того, является ли год високосным; количество дней в году - переменная, зависит от того, является ли год високосным; Вопрос 5 имя человека - символьный тип; символ из таблицы кодов ASCII - литерный тип; объём жидкости в сосуде - вещественный тип. Вопрос 6 Допустимые величины: 23; ‘семьдесят’; 123; ‘тридцать один’ Хотя, ‘тридцать один’ - это не по-русски, правильно ‘тридцать одна’, но в компьютерных программах это допускается.
i,n:integer;
s:string;
a:array[1..32,1..2] of string;
begin
n:=1;
for i:=Ord('А') to Ord('Я') do
begin
Str(i,s);
a[n,1]:=Chr(i)+' - '+s;
Inc(n);
end;
n:=1;
for i:=Ord('а') to Ord('я') do
begin
Str(i,s);
a[n,2]:=Chr(i)+' - '+s;
Inc(n);
end;
for i:=1 to 32 do writeln(a[i,1],' ',a[i,2])
end.
Результат выполнения программы в среде PascalABC.Net
А - 192 а - 224
Б - 193 б - 225
В - 194 в - 226
Г - 195 г - 227
Д - 196 д - 228
Е - 197 е - 229
Ж - 198 ж - 230
З - 199 з - 231
И - 200 и - 232
Й - 201 й - 233
К - 202 к - 234
Л - 203 л - 235
М - 204 м - 236
Н - 205 н - 237
О - 206 о - 238
П - 207 п - 239
Р - 208 р - 240
С - 209 с - 241
Т - 210 т - 242
У - 211 у - 243
Ф - 212 ф - 244
Х - 213 х - 245
Ц - 214 ц - 246
Ч - 215 ч - 247
Ш - 216 ш - 248
Щ - 217 щ - 249
Ъ - 218 ъ - 250
Ы - 219 ы - 251
Ь - 220 ь - 252
Э - 221 э - 253
Ю - 222 ю - 254
Я - 223 я - 255