Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dashkaborisova
09.07.2021 15:16 •
Информатика
Сумма и произведение цифр случайного трехзначного числа число вводится с клавиатуры в паскале сделайте
Показать ответ
Ответ:
21rudik21
04.10.2020 03:06
Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
czartan
27.03.2021 01:32
Почему современный компьютер называют универсальным электронным программно...
parvizmirzoev03
20.05.2021 22:10
Дан одномерный массив 10 целых чисел найти сумму отрицательных и положительных чисел отдельно . язык паскаль...
mazeke78
03.02.2021 16:02
Любой текст, созданный с текстового процессора, вместе с включёнными в него не текстовыми материалами, что это?...
priss666
11.08.2022 11:05
Впаскале выдать на экран все номера позиций , на которых встречается буква к ))...
whitezizickela
30.04.2023 20:14
Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и выводит на экран последний элемент с нечетным значением и его индекс pascal...
3456801
28.01.2021 14:50
Назвіть декілька найзагальніших ознак архей...
Nnas22
25.04.2020 11:02
Вкладник поклав до банку 40 000 грн під 8 річних скільки грошей буде на його рахунку через 3 роки...
EvilHany
19.12.2021 00:36
6 a) Look at the gaps (1-5) inthe advert. What words doyou think are missing:names? nouns? or numbers?Check with your partner.b) You are going to listento a radio advertisement.Look...
Ruslan2289365
24.05.2023 18:51
3. Вычислите давление ртути (р = 13600 но дно стеклянной трубки, если высота уровня жидкости в ней равна 74,3 см....
galinadik84
11.05.2022 06:33
Дослідити функцію y = 3x4 – 4x3 + 1 і побудувати її графік....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.