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

Question

Ева Романова

Информатика

20 марта, 20:53

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

+1

Ответы (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.