Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
katrin7878
03.04.2020 05:06 •
Информатика
Написать программу нахождения суммы цифр 3-х значного числа pascal abc
Показать ответ
Ответ:
astashkin222
10.08.2020 19:17
Var a,b,c,d:integer;
begin
readln(a);
b:=a mod 10;
c:=b mod 10;
d:= c mod 10;
writeln(b+c+d);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
topwkolnik
12.02.2021 10:24
решить первое и второе задание...
88000535285
07.01.2021 16:45
уровень B и очень нужно в ПАСКАЛЕ...
сымбатым
23.12.2021 16:41
Задание 1: Перечислите виды сигналов (5 основных) Задание 2: Информацию, которую можно получить с измерительных приборов, называют: Задание 3: Информацию, выраженную...
askarovavikuly
20.06.2021 23:05
Программа сортировки массива от 1 до 30 заданным генератором случайных чисел от -30 до 30. отсортировать в порядке возрастания...
Мальвина1122
02.04.2022 22:57
Стиральная машина подорожала на 16% и стала стоить 24360 рублей.потом она подешевела на 15%.на сколько рублей дороже стоила эта стиральная машина до подорожания ,чем...
dima03102003
21.11.2022 10:04
Надо верная строка else begin x: =0; y: =y+1 end 2- then y: =y+1; x: =0 else y: =0; x: =x+1 3-какова структура оператора организующего ветвление в языке програмирования...
tyler02169
13.01.2020 08:39
Сравнить свойства поваренной соли и сахара...
ника2763
13.01.2020 08:39
Автомобиль проехал 280 км 85% пути он двигался по шоссе а остальной путь-по грунтовой дороге...
mandarin50
14.04.2022 20:02
Вычисли 244см: 4; 135кг×5; 2м48см: 4; 568дм: 4; 800кг: 5; 126ц: 2; 721м: 7; 918см: 2; 53см4мм: 3...
elit5555
18.09.2022 00:47
Постройте график: 1) f(x)=-x⁴+2x²+52) f(x)=2x³-6x²+4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
b:=a mod 10;
c:=b mod 10;
d:= c mod 10;
writeln(b+c+d);
end.