Предмет: Информатика,
автор: dukat2004got
Вводится нат.число.Найти сумму этого числа и числа записанного теми же цифрами в обратном порядке. Надо сегодня утром отдаю последние баллы пожалуйста на Паскале
Ответы
Автор ответа:
0
uses
SysUtils;
var
num, reversNum: String;
j: Char;
i: Integer;
begin
ReadLn(num);
reversNum := num;
for i := 1 to Length(num) div 2 do
begin
j := reversNum[i];
reversNum[i] := reversNum[Length(num) - i + 1];
reversNum[Length(num) - i + 1] := j;
end;
WriteLn(strtoint(num) + strtoint(reversNum));
end.
Похожие вопросы
Предмет: Русский язык,
автор: qqleen
Предмет: География,
автор: kotik2524ff
Предмет: Математика,
автор: biathalisa
Предмет: Биология,
автор: Aidok20021
Предмет: Математика,
автор: tigreno2014