Написать программу для Pascal Abc, решающую следующую задачу: дано трёхзначное число. Вывести число, полученное при перестановке крайних чисел исходного числа

Question

Информатика

Ритоха

1 февраля, 18:31

Написать программу для Pascal Abc, решающую следующую задачу: дано трёхзначное число. Вывести число, полученное при перестановке крайних чисел исходного числа

+5

Ответы (1)

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

Летта · Answer 1

Program z1;

var x:integer;

a1, a2, a3:integer;

begin

write ('x=') ; readln (x) ;

a1:=x div 100;

a2: = (x div 10) mod 10;

a3:=x mod 10;

x:=a3*100+a2*10+a1;

writeln (x) ;

readln

end.