Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
BlackBear2517
10.02.2022 06:32 •
Информатика
Напишите программу в паскаль для решения : ввести натуральное число и определить, верно ли, что сумма его цифр равна 10
Показать ответ
Ответ:
Sasha030506
01.10.2020 19:38
begin
var s: string;
var i, k: integer;
readln(s);
try
foreach c: char in s do
k += Byte.Parse(c);
writeln(k);
except
on System.FormatException do
writeln('Введи число -_-');
else writeln('Ошибка');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
hdhdhdhehd
10.08.2022 20:16
Оформите вс алгоритм рисования треугольника. Напишите алгоритм для исполнителя Чертежник, который будет рисовать ель, используя вс алгоритм и цикл.CРЧНО...
NastikLoVe22
14.03.2021 16:45
ответить на во тема: Анимация 1) что называется кадрами? 2) Что стало толчком к зарождению искусства анимации? 3) Когда появились книжки с рисугками и что на них было...
aliko705
24.01.2021 10:42
Работа по информатике...
vladaleonova
10.08.2022 20:16
Выберите из предложенного списка IP-адрес: * 125.256.34.21 193.126.7.29 edu.ru 34.89.45...
verazotova04
31.03.2022 20:04
Білу және түсіну )1. Мазмұн не үшін қажет?2. Word мәтіндік процессорының көмегімен тақырыптардытүрде жинауды қалай үйымдастыруға болады?3. Тақырыптарга стиль не үшін...
Xylophone
18.03.2021 09:22
Решите информатику В программе знак «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления....
NASTUHA6
23.05.2023 00:37
ЧИТАЮ ЗАДАНИЯ И ВООБЩЕ НИЧЕГО НЕ ПОНИМАЮ, ЧТО НУЖНО СДЕЛАТЬ Задание 1 Используя код Хэмминга, постройте кодовое слово для числа 7 Задание 2 После кодирования методом...
kleep9007катя
11.12.2021 16:52
Привет с легкими задачами в Lazarus! 1) Площадь прямоугольника С м кв. Чему равен периметр прямоугольника, если его длинна d м? 2) Найдите площадь круга S, если известна...
Mihrimah1
12.06.2021 10:54
Який виконується команда циклу з лічильником в Object Pascal...
Оля666Olya
27.03.2022 22:53
Составить программу на языке С++, решающую следующую задачу: Дано трехзначное число. Найти сумму и произведение его цифр....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s: string;
var i, k: integer;
readln(s);
try
foreach c: char in s do
k += Byte.Parse(c);
writeln(k);
except
on System.FormatException do
writeln('Введи число -_-');
else writeln('Ошибка');
end;
end.