Язык Pascal . Напишите программу, которая позволяет вводить с клавиатуры натуральное 3- значное число N и выполняет с ним следующие операции:
a) выводит на экран его цифры - по одной на каждой строке
b) формирует число N1, образованное перестановкой цифр исходного числа в
обратном порядке, например, из числа 123 должно получиться число 321,
с) формирует число N2, полученное перестановкой цифр десятков и единиц
d) формирует число N3, полученное перестановкой цифр сотен и десятков,
е) формирует число N4, полученное приписыванием цифры единиц в качестве
цифры тысяч (например, число 137 должно преобразоваться в 7137),
f) формирует число N5, полученное приписыванием цифры единиц в качестве
цифры тысяч и цифры сотен в качестве единиц (например, 137 должно
преобразоваться в 71371)
Все пункты задания 3 должны быть реализованы в одной программе.
program z1;
var n,c,d,e,n1,n2,n3,n4,n5:integer;
begin
write('n (99<n<1000) = ');
readln(n);
c:=n div 100;
d:=n div 10 mod 10;
e:=n mod 10;
writeln(c);
writeln(d);
writeln(e);
n1:=e*100+d*10+c;
writeln(n1);
n2:=c*100+e*10+d;
writeln(n2);
n3:=d*100+c*10+e;
writeln(n3);
n4:=e*1000+n;
writeln(n4);
n5:=e*10000+n*10+c;
writeln(n5)
end.
Объяснение:
Вводим число
Разбиваем на отдельные цифры сотен (1 цифра), десятков (2 цифра) и единиц (3 цифра)
Выводим на экран и формируем числа согласно условиям и примерам