Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Flora999
26.02.2023 07:25 •
Информатика
Запишите на языке паскаль программу,которая для произвольного натурального двузначного числа определяет: а)сумму и произведение его цифр,б)число,образованное перестановкой цифр исходного числа. плз.
Показать ответ
Ответ:
Dima22022005
01.07.2020 13:56
Var
Summ, proizv, per,A,b,n:integer;
Begin
Read(n);
A:=n div 10;
B:=n mod 10;
Summ:=a+b;
Proizv:=a*b;
Per:=b*10+a;
Write(Summ, proizv, per);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
rahcheeva81
07.07.2021 10:46
Для примера со сложением чисел 25 учениками Попробуйте проанализировать следующие ситуации в классе один кусок мела; в классе 5 кусков мела; в классе 25 кусков мела. Оцените...
Aiker000
07.01.2022 23:32
Құжатты баспаға жіберу үшін қандай әрекеттер орындау керек?...
nastyyya4
04.09.2021 08:19
Человек, группа людей, животные или техническое устройство выполнять определенные набор команд это...
dimabashlik3857
27.10.2022 13:38
Сколько среди чисел таких, что в них три различные цифры идут в порядке возрастания или убывания? напечатайте их. (в паскале)...
shutnick121
16.11.2020 10:23
Разработать алгоритм для нахождения значения выражений y = b-2x/b-4 ; [tex]\left \{ {{y=x^2-1} \atop {6x}} \right.[/tex] при x 4 при x≤4 найти сумму всех двузначных чисел равных...
erushevsascha
24.12.2021 10:25
Даны целые числа a и b (a b). вывести все целые числа от a до b включительно; при этом число a должно выводиться 1 раз, число a + 1 должно выводиться 2 раза и т. д.нужно сделать...
Konfetaz
31.01.2023 13:08
С(решением) проводится две лотереи: «6 из 36» и «5 из 64». сообщение о результатах какой из лотерей несет больше информации?...
D13na
30.10.2022 15:54
Напишите 5-10 предложений на тему: информатика это наука заранее...
Varkorn
16.11.2021 01:34
(3/7+(-8/7))+три целых шесть седьмых. 60...
fantomidri
16.11.2021 01:34
Ртуть + кремниевая кислота гидроксид калия + серная кислота оксид олова (2) + азотная кислота магний + угольная кислота серная кислота + сульфид бария...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Summ, proizv, per,A,b,n:integer;
Begin
Read(n);
A:=n div 10;
B:=n mod 10;
Summ:=a+b;
Proizv:=a*b;
Per:=b*10+a;
Write(Summ, proizv, per);
End.