написать программу в PASCAL ABC которая выполняет переворот пятизначного числа, вводимого

Написать программу в PASCAL ABC которая выполняет переворот пятизначного числа, вводимого с клавиатуры

Задать свой вопрос
Вельмизов Арсений
А может ты подробнее напишешь, что обязано получится в результате и через что решать?
Николай Ремидовский
типа вводишь 54326 и получится должно 62345
Виолетта Арешинская
через if возможно
Олег Ашморин
но при этом число обязано выводиться и первоначальное, и после переворота
Agata Razombeeva
Через if инспектировать 5-значное число либо нет?
Рибель Людмила
я точно не могу сказать:c
Ева Искорцева
сорри
Кира Кекшина
Мне то что, ты же вопрос 4 раз задаёшь...
Инна Мещерская
а через if можно же решить?
Ульяна Почитаева
Гляди... )))
1 ответ

var a,b,c: integer;

begin

write('Введите пятизначное число:');

readln(c);

if (c gt;= 10000) and (c lt;= 99999) then

begin

a:=c;

while agt;0 do

begin

b:=b*10+a mod 10;

a:=a div 10

end;

writeln ('Вы ввели число: ',c);

write ('Переворот числа: ',b)

end

else

begin

writeln('Число не пятизначное');

writeln ('Вы ввели число: ',c)

end

end.

Либо всё через if:

var a,b,c: integer;

begin

write('Введите пятизначное число:');

readln(c);

if (c gt;= 10000) and (c lt;= 99999) then

begin

a:=c;

if agt;0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if agt;0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if agt;0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if agt;0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if agt;0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

writeln ('Вы ввели число: ',c);

write ('Переворот числа: ',b)

end

else

begin

writeln('Число не пятизначное');

writeln ('Вы ввели число: ',c)

end

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт