Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
demeshkin1
12.10.2020 09:14 •
Информатика
Программисты, нужно написать программу на паскале. приписать по 1 в начало и конец числа n. например, из числа n=5678 надо получить 156781. с longint .
Показать ответ
Ответ:
мууур1
21.08.2020 15:19
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('1'+ReadInteger+'1')
end.
0,0
(0 оценок)
Ответ:
СНЕЖНАЯКОРОЛЕВА11
21.08.2020 15:19
Var
n: longint;
s: string;
begin
readln(n);
n := n * 10 + 1;
s := '1' + n;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dariadariadaria2
05.08.2020 04:54
Гироскопиялық датчик режимдерін жаз. !!...
Yanas7
25.03.2023 17:28
Проектная работа по информатике на тему алгоритмы ....
SvetaMew
11.03.2020 04:34
Назовите две страны, в которых возникли первые государства...
frostywhite
11.03.2020 04:34
ответ полный чёткий 5-8 предложений : что нового об обычиях древних грекови об их вооружении вы узнали из иллиады ?...
Ggogog
11.03.2020 04:34
Исправь ошибки государей начиная с ивана 3,стали называть царями. с этого времени будущих царей венчали на царство короной российской империи. молодого царя прозвали...
ApollaKop
11.03.2020 04:34
2. особенности строения ситовидных трубок передвижению по стеблю органических веществ а) удлиненные клетки без содержимого с толстыми одревесневшими оболочками б)...
miccalinkanikon
11.03.2020 04:34
Почему императора называют императором? свой ответ объясните...
Nastya26er
11.03.2020 04:34
Спишите, ставя данные в скобках слова в нужную форму (пишем правильный вариант без укажите падеж имен прилагательных. 1) с (высокое) здания, до (соседняя) деревни,...
avdzhrr
11.03.2020 04:34
Площа круга дорівнює 16п см2 . знайдіть довжину його кола...
Nastyacat200809
11.03.2020 04:34
Put the words into pairs of opposites. пример: to win - to lose. to save , to spend , to lend , to earn , to buy , to waste , to borrow , to sell 2. используйте слова...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
Writeln('1'+ReadInteger+'1')
end.
n: longint;
s: string;
begin
readln(n);
n := n * 10 + 1;
s := '1' + n;
writeln(s);
end.