Вопрос по информатике:
дано трехзначное число найдите модуль разности между этим числом и числом составленным из тех же цифр но взятых в обратном порядке
- 15.04.2018 21:58
- Информатика
- remove_red_eye 12345
- thumb_up 27
Ответы и объяснения 2
Var a,b,r:integer;
begin
readln(a);
b:=strtoint(reversestring(inttostr(a)));
r:=abs(a-b);
writeln(r);
end.
- 16.04.2018 15:17
- thumb_up 31
Если не нужно поразить учителя своими глубокими познаниями, то вот вариант более примитивной программы)))
var
x,y,z:integer;
s:string;
begin
readln(x);
s:=IntToStr(x);
s:=s[3]+s[2]+s[1];
y:=StrToInt(s);
z:=abs(x-y);
writeln(z)
end.
Программа написана только для данной задачи - трехзначного числа!
- 17.04.2018 18:08
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.