Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
vipkakunina
24.06.2022 11:31 •
Информатика
1. дан символ. написать программу, выводящую его код. 2. дан код символа. написать программу, выводящую сам символ. 3. написать программу для вывода на экран всех маленьких латинских букв.
Ответ:
llallallup
10.07.2020 16:53
2)
var
b:integer;
begin
writeln('vvedite kod simvola');
readln(b);
writeln('Simvol: ',chr(b));
readln;
end.
1)var
a:char;
begin
writeln('vvedite simvol');
readln(a);
writeln('kod simvola: ',ord(a));
readln;
end.
3)
var
ch: char;
begin
for ch := 'a' to 'z' do
write (ch,' ');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
EdgyHuman
29.06.2022 05:18
Информатика 3 класс стр 55 № 105 , найди на листе вырезания дорожные знаки, вырежи их и наклей в окна так, чтобы все эти утверждения были истинными: 1) в дереве б есть четыре разных...
nikolayAK
09.01.2022 05:38
Подскажите , почему не читается столбик Аспирантура ? Что нужно сделать?...
schvarzengold100
08.10.2022 01:09
HTML-документи мають чітку структуру. З яких стандартних частин складається веб документ?...
Polinakovalevallll
24.03.2021 15:06
Ля передачи по каналу связи сообщения, состоящего только из букв а, б, в, г, решили использовать неравномерный двоичный код: a -00, б - 11, в - 100. как нужно закодировать букву...
alzqsanko
24.03.2021 15:06
Удмитрия есть доступ к сети интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения информации 220 бит в секунду. у глафиры нет скоростного доступа...
мама1033
10.08.2020 05:25
1)вывести на экран квадраты и кубы нечётных целых чисел от 9 до 1. 2)даны натуральные числа от 1 до 150. найти сумму тех из них, которые делятся на 5 или на 7. 3)напечатать те...
никитоз5
10.08.2020 05:25
1)даны два целых числа a и b (a b). найти сумму квадратов всех целых чисел от a до b включительно. 2)даны натуральные числа от a до b(a...
kektuber222owf6bv
15.01.2021 22:42
прямая mn является секущей для прямых AB и CD(m принадлежит ab n принадлежит cd) угол amn = 64, при каком значении угла cmn прямые ab и cd могут быть парралельны...
katyamarkova22
15.01.2021 22:42
Родной язык ( русский ). помагите...
katiakosareva11
30.07.2021 16:26
Написать эссе на тему окружение Герасима...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
b:integer;
begin
writeln('vvedite kod simvola');
readln(b);
writeln('Simvol: ',chr(b));
readln;
end.
1)var
a:char;
begin
writeln('vvedite simvol');
readln(a);
writeln('kod simvola: ',ord(a));
readln;
end.
3)
var
ch: char;
begin
for ch := 'a' to 'z' do
write (ch,' ');
readln;
end.