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

Question

Информатика

Максимианыч

21 июля, 18:13

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

+5

Ответы (1)

Знаете ответ на вопрос?

Евгения · Answer 1

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.