Дано трёхзначное число K. Вывести на экран число полученное при перестановке первой и последней цифр.

Question

Валентиночка

22 марта, 22:55

+5

Ответы (1)

Знаете ответ на вопрос?

Епестина · Answer 1

var a, b, c, d:integer;

begin

readln (a) ;

d: = (a mod 10) * 100;

c: = (a div 10 mod 10) * 10;

b: = a div 100;

a:=d+c+b;

writeln (a) ;

end.