Используя средства языка программирование , составить таблицу соответствия больших и малых букв алфавита коду asc||

210

320

Посмотреть ответы 3

Ответы на вопрос:

Оксана1241

Информатика

4,4(62 оценок)

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin var s: ='абвгдеёжзийклмнопрстуфхцчшщъыьэюя'+ 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; foreach var c in s do writeln(c,' ',ordansi(c)) end. результат а 192 б 193 в 194 г 195 д 196 е 197 ё 168 ж 198 з 199 и 200 й 201 к 202 л 203 м 204 н 205 о 206 п 207 р 208 с 209 т 210 у 211 ф 212 х 213 ц 214 ч 215 ш 216 щ 217 ъ 218 ы 219 ь 220 э 221 ю 222 я 223 а 224 б 225 в 226 г 227 д 228 е 229 ё 184 ж 230 з 231 и 232 й 233 к 234 л 235 м 236 н 237 о 238 п 239 р 240 с 241 т 242 у 243 ф 244 х 245 ц 246 ч 247 ш 248 щ 249 ъ 250 ы 251 ь 252 э 253 ю 254 я 255

Kira1626

Информатика

4,7(14 оценок)

//прога на pascal`е {не работает на pascalabc.net, т.к. оный использует 2-байтную кодировку unicode, а не 1-байтную кодировку ascii, как более ранние версии pascal`ей} const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do begin ch[i]: =num; inc (num); end; writeln ('символ | код ascii'); writeln (''); for i: =1 to n do writeln (' ', chr(ch[i]), ' | ', ch[i]); end. {версия для pascalabc.net} //прога на pascal`е const n = 32*2; var ch: array [1..n] of byte; i, num: byte; begin num: =192; for i: =1 to n do begin ch[i]: =num; inc (num); end; writeln ('символ | код ascii'); writeln (''); for i: =1 to n do writeln (' ', chr(ch[i]+848), ' | ', ch[i]); end.