Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ged95
05.04.2020 02:49 •
Информатика
Запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове байт
Показать ответ
Ответ:
Franker10
21.07.2020 15:49
const
b = 'байт';
var
l,i,s : integer;
begin
l := Length(b);
s := 0;
for i := 1 to l do
s := s +ord(b[i]);
writeln (s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tanya101nfjgh0
27.08.2022 05:30
Почты8. Дан адрес электронной[email protected] Каковопочтового сервера?ИМЯ1. den;2. immc;3. duble;4. duble.immc;5.ru...
камаз9
26.06.2020 18:01
Блок сызба сиякты песвдокод сызбасын сыз...
василиска8
11.03.2023 07:57
Многослойная структура в который на фон можно наслаивать текст изображения и другие объекты это...
razor200711
04.01.2023 02:10
Найти сумму чётных цифр числа) ) решить в паскале. буду )...
диас161
01.08.2021 02:22
По каналу связи непрерывно в течение 10 часов данные. скорость передачи данных в течение первых 6 часов составляет 512 кбит в секунду, а в остальное время – в два раза меньше. сколько...
meri62
15.06.2022 02:46
Почему компьютер является универсальной машиной для работы с информацией? заранее...
Дильназ231
15.06.2022 02:46
1. информационными процессами называются действия, связанные: a) с созданием информационных систем; b) с работой средств массовой информации; c) с получением (поиском), хранением,...
vovakornev2002
15.06.2022 02:46
Вообще ! найдите сумму нечётных чисел из промежутка от 11 до это надо на паскале найти среднее арифметическое чисел от 1 до ! тоже на паскале ! 1...
mustafaalbakov
15.06.2022 02:46
Написать небольшое сообщение на тему: безопасность в интернете и просмотр веб - страниц вас , надо. заранее ,добрые люди....
Anna124212
15.06.2022 02:46
Вэлектронной таблице значение формулы =сумм(с3: e3)=15 чему равно значение формулы =срзнач(с3; f3) если значение ячейки f3 равно 5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
b = 'байт';
var
l,i,s : integer;
begin
l := Length(b);
s := 0;
for i := 1 to l do
s := s +ord(b[i]);
writeln (s);
end.