Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DALERALIMOV02
20.01.2022 19:17 •
Информатика
Дана строка, состоящая только из цифр. найти сумму этих цифр.
Показать ответ
Ответ:
сонясонясоня1
25.06.2020 07:22
Var
st: string;
i, s, x, err: integer;
begin
write('Vvedite stroku: ');
readln(st);
for i:=1 to length(st) do
begin
val(st[i], x, err);
s:=s+x;
end;
writeln('Summa = ', s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
DarkGay
15.08.2020 13:52
В программе Pascal ABC решите следующие задачи: 1.Напишите программу, которая выполняет реверс массива: меняет местами первый и последний элементы, второй и предпоследний и т.д....
mahinaboboeva
14.09.2022 12:41
Вводится четырёхзначное число. Определить количество различных чисел, которое можно составить из цифр данного числа (цифру нельзя дублировать, если в исходное число она входит...
ania47
15.12.2021 12:17
Графика, представляемая в памяти компьютера в виде совокупности точек, называется: 1) Трехмерной 2) Фрактальной 3) Растровой 4) Векторной Графика, представляемая в памяти компьютера...
banana92
20.12.2022 08:37
15 июля 1923 года из москвы в нижний новгород вылетел аэроплан ультиматум . так была открыта первая трасса аэрофлота длиной 420 км.аэроплан шёл на высоте 250 м и преодолел все...
irror404
20.12.2022 08:37
Чему учит рассказ рикки-тикки-тави?...
vladislavserov
20.12.2022 08:37
Составь текст по заголовку.можешь использовать слова для справок первый снег к лицу земле слова для справок: -- подошёл к окну , примерили новый наряд , кружевные рукава , бархатные...
Danya1111111111135
20.12.2022 08:37
Сосна, котёнок, красивый запиши проверочные слова...
Noksiwin
20.12.2022 08:37
Сколько понадобиться плиток квадратной формы со стороной 20 см , чтобы облицевать ими стену , имеющую форму прямоугольника со сторонами 3,4 м и 3,8 м ?...
nelga2006дашуля
20.12.2022 08:37
Что такое горизонт! полное и желательно краткое желательно быстро!...
lysiya1
20.12.2022 08:37
Назовите море, залив и полуостров, которые нужно было пересечь на пути из индии в европу....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
st: string;
i, s, x, err: integer;
begin
write('Vvedite stroku: ');
readln(st);
for i:=1 to length(st) do
begin
val(st[i], x, err);
s:=s+x;
end;
writeln('Summa = ', s);
readln;
end.