Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nbillier2004gmailcom
14.11.2022 12:04 •
Информатика
Программа в паскале, через char (не string) ! вводится строка символов, найти сумму и количество введенных цифр.
Показать ответ
Ответ:
YAGA009
06.10.2020 01:58
Program fff;
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Помогитемне11111119
24.07.2021 22:49
Сдать решение задачи 7-Таблица Полный : 100 Ограничение времени: 500 мс Ограничение памяти: 512M Ограничение размера стека: 64M Задача 7: Таблица Бесконечную таблицу,...
vaider222
27.04.2021 21:26
Стр 47 таблица по физике 8 класс...
КатяVL
26.12.2022 03:49
При программировании какие системы счисления используются? а) все вычислительные системы используютсяб) только двоичный в) двоичный и десятичный...
Schumka12
15.12.2021 12:47
Впрограмме «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. правила выполнения...
Айкотик2017
30.12.2022 15:38
напишите блок схему на программу у меня проектная деятельность #include iostream #include cmath using namespace std; void plita() { int a; //переменная которая ровна...
afsanka98
29.05.2022 09:53
Дана последовательность натуральных чисел из 10 элементов .Найти сумму элементов кратных 14. В системе Паскаль...
барни51
25.12.2022 23:58
Как можно использовать знания компьютера в жизни?...
1Серж1111111111
25.12.2022 23:58
Написать программу печати чисел фибоначчи от 1 до 1000, являющихся простыми числами, а также их порядковых номеров в ряду фибоначчи. с программой на паскале ....
викатевишкамимимишка
21.11.2022 13:44
Составить алгоритм чертёжника буквы в по программе кумир?...
nuriksabirjan
30.11.2021 09:22
Сколько раз выполняется цикл? a: =4 b: =6 while a...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var c: Char; n, u, sum: Integer; begin write('Кол-во цифр для ввода: '); readln(n); for u := 1 to n do begin readln(c); sum := sum + Ord(c)-48; end; writeln('Кол-во введёных цифр = ', n); writeln('Сумма введёных цифр = ', sum);end.