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

Question

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

Comments

А может ты подробнее напишешь, что должно получится в результате и через что решать?

---

типа вводишь 54326 и получится должно 62345

---

через if возможно

---

но при этом число должно выводиться и первоначальное, и после переворота

---

Через if проверять 5-значное число или нет?

---

я точно не могу сказать:c

---

сорри

---

Мне то что, ты же вопрос 4 раз задаёшь...

---

а через if можно же решить?

---

Смотри... )))

Answer 1

var a,b,c: integer;

begin

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

readln(c);

if (c >= 10000) and (c <= 99999) then</p>

begin

a:=c;

while a>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 >= 10000) and (c

begin

a:=c;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>0 then

begin

b:=b*10+a mod 10;

a:=a div 10

end;

if a>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.