Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dabby1
17.08.2022 23:15 •
Информатика
Дано целое двузначное число х. составьте программу вычисления суммы и произведения цифр числа х. значение х ввести с клавиатуры.
Показать ответ
Ответ:
Danil21K
07.10.2020 19:39
Var a,b:byte;
num:integer;
begin
write('Введите двухзначное целое число ');
readln(num);
//если число отрицательное - убираем знак
num := abs(num);
//десятки числа
a:=num div 10;
//единицы числа
b:=num mod 10;
writeln('Сумма цифр ', a , ' и ', b, ' = ', a+b);
writeln('Произведение цифр ', a , ' и ', b, ' = ', a*b);
end.
0,0
(0 оценок)
Ответ:
Философияна5
07.10.2020 19:39
П0 1 0 / {x} 1 0 * П1 ИП0 1 0 / [x] П1 ИП0 + С/П ИП0 ИП1 * С/П
0,0
(0 оценок)
Популярные вопросы: Информатика
Gbr330
06.04.2023 17:15
Определите значение b после выполнения алгоритма: а:= 8b:= 2a:= 14 + a*bb:= b + a/3ответ: ...
danadv
24.05.2022 06:17
дано целое число N( 1) . Найти наибольшее целое число К,при котором выполняется неравенство 2^К N. Решить задачу используя циклическую конструкцию while ,на питон...
nastuaserova
23.02.2023 13:11
2. Составь предложения с найденным словом: {Выход из лабиринта}...
Мишa1
26.01.2021 05:53
1. Постройте таблицу истинности для логического выражения: a) A˄B˅А...
workout7774
20.03.2022 01:57
Pascal, цикл для, составить программу. 1)последовательно вводятся 10 целых чисел. найти среднее арифметическое этих чисел...
олололо12
20.03.2022 01:57
Pascal, цикл для, составить программу. 2)составить программу, запрашивающую пароль пользователя. в случае правильности пароля выводится фраза: “можно приступать...
Рунтакс
20.03.2022 01:57
Дано натуральное число n. найти и вывести все простые делители этого числа. паскаль. через вложенные циклы....
martynovich04
20.03.2022 01:57
Сформулируйте условие , которую решает данная программа: var c,k: integer; begin k: =0; for c: =10 to 99 do if c mod 7 = 0 then k: =k+1; writeln( k= k); end....
svetlanaariann
20.03.2022 01:57
Втаблице запросы к поисковому серверу. для каждого запроса указан его код - соответствующая буква от а до г. расположите коды запросов слева направо в порядке убывания...
lisovskymaxim2006
05.05.2022 16:14
Реши . написанное письмо состоит из 93 символов . каков размер письма в битах , байтах?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
num:integer;
begin
write('Введите двухзначное целое число ');
readln(num);
//если число отрицательное - убираем знак
num := abs(num);
//десятки числа
a:=num div 10;
//единицы числа
b:=num mod 10;
writeln('Сумма цифр ', a , ' и ', b, ' = ', a+b);
writeln('Произведение цифр ', a , ' и ', b, ' = ', a*b);
end.