Question

Язык Pascal . Напишите программу, которая позволяет вводить с клавиатуры натуральное 3- значное число N и выполняет с ним следующие операции:a) выводит на экран его цифры - по одной на каждой строкеb) формирует число N1, образованное перестановкой цифр исходного числа вобратном порядке, например, из числа 123 должно получиться число 321,с) формирует число N2, полученное перестановкой цифр десятков и единицd) формирует число N3, полученное перестановкой цифр сотен и десятков,е) формирует число N4, полученное приписыванием цифры единиц в качествецифры тысяч (например, число 137 должно преобразоваться в 7137),f) формирует число N5, полученное приписыванием цифры единиц в качествецифры тысяч и цифры сотен в качестве единиц (например, 137 должнопреобразоваться в 71371) Все пункты задания 3 должны быть реализованы в одной программе.​

Answer 1

Ответ:

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 цифра)

Выводим на экран и формируем числа согласно условиям и примерам

Answer 2

Ваша задача состоит в том, чтобы написать программу на языке Pascal, которая выполняет ряд операций над введенным 3-значным числом.

Для начала, давайте напишем программу, которая будет принимать на вход 3-значное число и выводить его цифры по одной на каждой строке:

program Main;
var
   N: integer;
   digit1, digit2, digit3: integer;
begin
   readln(N);
   digit1 := N div 100;
   digit2 := (N mod 100) div 10;
   digit3 := N mod 10;
   writeln(digit1);
   writeln(digit2);
   writeln(digit3);
end.

Теперь давайте добавим операции, которые вы описали:

b) Число N1, образованное перестановкой цифр исходного числа во обратном порядке:

var
   N1: integer;
begin
   N1 := digit3 * 100 + digit2 * 10 + digit1;
   writeln(N1);
end.

c) Число N2, полученное перестановкой цифр десятков и единиц:

var
   N2: integer;
begin
   N2 := digit1 * 10 + digit3;
   writeln(N2);
end.

d) Число N3, полученное перестановкой цифр сотен и десятков:

var
   N3: integer;
begin
   N3 := digit2 * 100 + digit1 * 10 + digit3;
   writeln(N3);
end.

e) Число N4, полученное приписыванием цифры единиц в качестве цифры тысяч:

var
   N4: integer;
begin
   N4 := digit3 * 1000 + N;
   writeln(N4);
end.

f) Число N5, полученное приписыванием цифры единиц в качестве цифры тысяч и цифры сотен в качестве единиц:

var
   N5: integer;
begin
   N5 := digit3 * 1000 + digit2 * 100 + N;
   writeln(N5);
end.

В итоге, ваша программа будет выглядеть так:

program Main;
var
   N: integer;
   digit1, digit2, digit3: integer;
   N1, N2, N3, N4, N5: integer;
begin
   readln(N);
   digit1 := N div 100;
   digit2 := (N mod 100) div 10;
   digit3 := N mod 10;
   writeln(digit1);
   writeln(digit2);
   writeln(digit3);

N1 := digit3 * 100 + digit2 * 10 + digit1;
   writeln(N1);

N2 := digit1 * 10 + digit3;
   writeln(N2);

N3 := digit2 * 100 + digit1 * 10 + digit3;
   writeln(N3);

N4 := digit3 * 1000 + N;
   writeln(N4);

N5 := digit3 * 1000 + digit2 * 100 + N;
   writeln(N5);
end.