Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
22222ssssssss
11.09.2021 00:15 •
Информатика
Задано натуральное четырехзначное число. получить из его цифр все возможные двузначные числа pascal, решите
Показать ответ
Ответ:
glushkovanastya
06.07.2020 07:50
Var a,b,k,l,m,n:integer;
begin
readln(a);
b:=a;
n:=a mod 10;
k:=a div 1000;
l:=(a mod 1000) div 100;
m:=(a mod 100) div 10;
writeln(k+l,' ',k+m,' ',k+l,' ',l+m,' ',l+n,' ',m+n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Thrillgang
06.04.2022 21:18
2. Определите, что будет напечатано в результате выполнения следующего скрипта:S = 1for k in range(30):s= (-1) * ѕprint(s)...
wella5555
07.11.2020 16:19
1. Що таке спрайти в середовищі Scratch? 2. Якими можна змінити значення властивостей об єктів у середовищі Scratch?3. Які властивості має об єкт Сцена? Якими можна змінити...
fjdjwjqksnddjj
07.02.2023 12:22
Определите переменные str, num, flag и txt со значениями «Привет», 123, true, «true». При оператора определения типа убедитесь, что переменных принадлежат типам: string, number,...
gshshagag
28.05.2023 00:06
Записать числа в развернутой форме: 26,14^10 10,1^2 37,4^8 26,E^16...
Sone4ga
05.11.2020 06:23
128 бит канша байтка тен а)4 б)16 с)20 д)100...
Ayashka11
24.02.2023 04:53
3. истинные высказывания кто в доме хозяин? москва – столица бразилии дважды два – восемь лежать, отжаться! апельсин – круглый и оранжевый. обязательно стань отличником! все...
nova4ka
24.02.2023 04:53
Какова должна быть минимальная пропускная канала (в битах в секунду), чтобы за 2 минуты можно было передать файл размером 30 кбайт?...
bratdrug27p09mj2
21.08.2021 08:06
Какую информацию можно получить с телескопа,микроскопа, весов?...
aktobe1
16.10.2020 04:42
Вычислите выражение в двоичной форме счисления. 125 в 8 + 101 во2* 2а в 16 -141 в 8...
ivanovdima112
09.04.2020 14:49
В языке запросов поискового сервера для обозначения логической операции ИЛИ используется символ | , а для обозначения логической операции И - символ & . В таблице приведены...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
b:=a;
n:=a mod 10;
k:=a div 1000;
l:=(a mod 1000) div 100;
m:=(a mod 100) div 10;
writeln(k+l,' ',k+m,' ',k+l,' ',l+m,' ',l+n,' ',m+n);
end.