Написать программу в паскале:

Дано трехзначное число. Найти число, полученное перестановкой первой и третьей цифры заданного числа.

Question

Ермиония

20 октября, 07:38

+2

Ответы (2)

Знаете ответ?

Герма · Answer 1

Другой способ:

var a, i:longint;

begin

readln (a) ;

for i:=1 to 3 do

begin

write (a mod 10) ;

a:=a div 10;

end;

end.

Вела · Answer 2

Var a, b, c, n:integer; beginreadln (n) ; {находим 1 цифру}a:=n mod 10; b:=n div 10 mod 10; c: = n div 100; n:=100*a + 10*b + c; writeln (n) ; end.

Написать программу в паскале:Дано трехзначное число. Найти число, полученное перестановкой первой и третьей цифры заданного числа.