Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ппсомо3657
27.09.2020 06:07 •
Информатика
Задано натуральное четырехзначное число. получить из его цифр все возможные двузначные числа pascal, решите
Показать ответ
Ответ:
Лама123
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 оценок)
Популярные вопросы: Информатика
nadezdaakopan
14.03.2020 00:22
Чему равно значение выражения 2 ∙ 1024 ∙ 1024 ∙ 8 битов:...
mialia9922
08.05.2023 08:13
Жизненно необходимо.последние за эту .вычислить 5-й член последовательности образованный дробями 1/1 2/1 3/2 т.е числитель(знаменатель) следующего члена последовательности...
ТАПОРИК
24.01.2023 12:00
Вводится одна строка, каждая буква которой представляет собой результат одного броска монетки — «о» обозначает орла, «р» обозначает решку. программа должна вывести...
Nr2006
04.05.2021 10:25
#include iostream #include ctime #include cstdlib using namespace std; int main() { int km = 0, kn = 0, a[20]; srand(time(NULL)); for (int& i : a)i = rand() %...
mastermax217
27.06.2020 00:18
Записать 10 - 12 заимствованных слов, имеющих аналоги в языке и указать сферу их употребления....
elviraborysenko
18.03.2021 19:26
Задайте 4 вопроса на past simple past continuous past perfect past perfect continuous...
abdidiyar20132
11.10.2021 16:51
65 написать сочинение на тему семья более священна чем государство ...
Anhard23
09.10.2021 09:42
3. дана прямоугольная трапеция abcd, угол a = угол b = 90°,ab = 10 см, угол cad= 45°, ск - высота, ак: kd = 1: 2.найдите среднюю линию трапеции....
РОЗОЧКА37563
28.12.2022 09:25
25 заполните таблицу.если можно, то еще с какого возраста наступает ответственность? ...
Logas25743
05.01.2021 09:10
как пишется на французском время : 10: 0011: 2012: 00 дня13: 1515: 2016: 3017: 3518: 4519: 5512: 00 полночь ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.