дано трехзначное число найдите модуль разности меж этим числом и числом

дано трехзначное число найдите модуль разности меж этим числом и числом составленным из тех же цифр но взятых в оборотном порядке

Задать свой вопрос
2 ответа
Если не необходимо поразить учителя своими глубокими заниями, то вот вариант более примитивной программки)))
var    
   x,y,z:integer;
   s:string;
begin
readln(x);
s:=IntToStr(x);
s:=s[3]+s[2]+s[1];
y:=StrToInt(s);
z:=абс(x-y);
writeln(z)
end.
Программка написана только для данной задачи - трехзначного числа!
Var a,b,r:integer;
begin
readln(a);
b:=strtoint(reversestring(inttostr(a)));
r:=abs(a-b);
writeln(r);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт