Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
islom0503
27.10.2020 22:53 •
Информатика
Дано натуральное трехзначное число n. составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч).
Показать ответ
Ответ:
влалллла
08.07.2020 21:19
Program Pr1;
uses crt;
var fl1,fl2:text;
n,tmp:string;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
close(fl1);
tmp:=copy(n,length(n),1);
n:=tmp+n;
rewrite(fl2);
writeln(fl2,n);
close(fl2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
вико2006
01.01.2020 17:21
Альфа тайпасының алфавиті 8 әріптен тұрады. Бета тайпасының алфавиті 16 әріптен тұрады. Гамма тайпасының алфавиті 32 әріптен тұрады. Дзета тайпасының алфавиті 64 әріптен...
dogs91
29.12.2021 03:45
Дан массив А. нужно написать программу на си++, чтобы в результате выполнения программы выводились значения х...
Magia33
19.11.2021 10:43
Какое максимальное количество колонок можно создать в MS WORD?...
123451527
27.10.2022 01:11
Написать одну программу для подсчета арифметических выражений....
daniltarakanov
28.05.2021 14:57
Ритм какой музыки включил Дебюсси в классическую фортепианную музыку...
MariaVonlaar
28.05.2021 14:57
1)Почему лист называют главным органом растений? 2)Какую роль играет многоярусное расположение листьев на стебле? 3)Какие листья называют и сложными? Приведите примеры растений,...
janelens
28.05.2021 14:57
Dialog 1 Warum ärgert ... Olaf? Weil er einen Fehler in der Physikarbeit gemacht hat. Einen Fehler? Und dann ärgert er ... ? Dialog 2 Wie geht es deinen Eltern? Wie fühlen...
NeTop4ek
30.04.2020 06:54
закрепление Will/be going toNumber the use in the boxes and then fill the gaps with the verbs in brackets in the correct form.USESally:There s no milk left!1 Betty: Oh....
privetloll
30.04.2020 06:54
Во Для построения диаграммы в таблице необходимо выделить: 1 шапку. 2 боковик таблицы. 3 итоговую строку. 4 числовые данные. Во Для круговой диаграммы выделить: Варианты...
strange0311
30.04.2020 06:54
Сенкан чеширського кота...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var fl1,fl2:text;
n,tmp:string;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
close(fl1);
tmp:=copy(n,length(n),1);
n:=tmp+n;
rewrite(fl2);
writeln(fl2,n);
close(fl2);
end.