Напишите программу, которая меняет местами первую и последнюю цифру натурального трехзначного числа. (ABC Pascal)

Question

Информатика

Ермиония

19 декабря, 00:44

Напишите программу, которая меняет местами первую и последнюю цифру натурального трехзначного числа. (ABC Pascal)

+5

Ответы (1)

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

Антония · Answer 1

Var

a, chislo, t:longint;

c, nov, posl:integer;

begin

readln (a) ;

posl:=a mod 10;

chislo:=a;

t:=1;

repeat

a:=a div 10;

t:=t*10;

until a<10;

chislo:=chislo mod t;

chislo:=posl*t+chislo-posl+a;

writeln (chislo) ;

readln;

end.