В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
danatabilov
danatabilov
27.07.2021 11:20 •  Информатика

Free pascal. вывести на экран консоли символы латинского алфавита чти коды кратны 2 и 3 одновременно.

Показать ответ
Ответ:
Gulnarhidayetova
Gulnarhidayetova
06.10.2020 13:59
Символы лат. алфавита от A=41H=4*16+1=65 до Z=5AH=5*16+10=90
Среди них кратны 2 и 3, то есть кратны 6, коды:
B = 66, H = 72, N = 78, T = 84, Z = 90.
В Паскале код буквы выводит функция ord(c), где с имеет тип char.
Наоборот, букву по коду выводит функция chr(i), где i - число.
Begin
var i: integer
for i := 66 to 91 do
{ begin
writeln chr(i);
i := i+5;
end }
End.
В Паскале нельзя задать цикл с произвольным шагом (или можно, но я не помню, как), поэтому я внутри цикла прибавляю 5, а сам цикл прибавляет еще 1, и получается шаг 6.
Если не получается, исправьте i+5 на i+6.
В итоге вы должны получить буквы B, H, N, T, Z.
Если надо еще и маленькие буквы, то их коды от a=61H=97 до z=7AH=122,
из них кратны 6 : f = 102; l(L) = 108; r = 114; x = 120.
Тогда нужно в прогамму добавить второй цикл:
for i := 102 to 121 do
{ begin
writeln chr(i);
i := i+5;
end }
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота