Дано натуральное трехзначное число N. Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч). Используя текстовые файлы input, output.

+3
Ответы (1)
  1. 9 мая, 14:55
    0
    program zz1;

    var

    n, i, s: integer; / / задаем переменные целого типа

    f1, f2: text; / / задаем переменную текстового типа для работы с файлом

    begin

    assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

    reset (f1); / / открываем файл для чтения

    assign (f2, 'output. txt');

    rewrite (f2); / / открываем файл для записи

    read (f1, n);

    s: = n mod 10; / / получаем последнюю цифру

    n:=n + s * 1000; / / приписываем ее к числу

    write (f2, n); / / выводим ответ

    close (f1); / / закрываем файл input

    close (f2); / / закрываем файл output

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n - вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное. Использовать цикл WHILE
Ответы (1)
В каком языке программирования отсутствует тип данных
Ответы (1)
Что такое бит с позиции алфавитного подхода к измерению информации?
Ответы (1)
Для создания и обработки электронных документов используется компьютерные программы (отметь). Графический планшет; Текстовый редактор; Графический редактор; Калькулятор; Музыкальный редактор; Сканер; Клавиатурный тренажёр.
Ответы (1)
Установите соответствие между типами файлов и расширениями файлов. Текстовый файл Графический файл Web-страница Звуковой файл Видеофайл Системный файл Исполняемый файл txt bmp htm doc jpg mp3 html gif midi mpeg sys exe avi com
Ответы (1)
Составьте программу для решения следующей задачи массив б задан случайным образом подсчитать сумму элементов массива состоящих из нечётных чисел
Ответы (1)
Маша набирает текст со скоростью 40 символов в минуту, а Катя - 20 символов в минуту. Через какое время девочки введут одинаковое количество символов, если Катя начала набирать текст на 5 минут раньше Маши?
Ответы (1)
Кодирование нотной записи занимает 14 байт. Каждая нота кодируется одним 2 битами. Сколько нот в записи?
Ответы (1)
какое значение будет иметь переменная S после выполнения следующего оператора S=0, i=2 Repeat i:=2*i; S: = S+i until i > 10
Ответы (1)
Дано N чисел. Найти самое большое число, на которое делятся все N чисел.
Ответы (1)