Напишите линейную программу, в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число k. Например: если k=1357, то S=7531.
begin Write('Введите целое четырехзначное положительное число->'); Readln(k); m := k div 1000; S := m; k := k mod 1000; m := k div 100; S := S + 10 * m; k := k mod 100; m := k div 10; S := S + 100 * m; k := k mod 10; S := S + 1000 * k; Writeln('Перевертыш: ', S) end.
Answers & Comments
k, S, m, n: integer;
begin
Write('Введите целое четырехзначное положительное число->');
Readln(k);
m := k div 1000;
S := m;
k := k mod 1000;
m := k div 100;
S := S + 10 * m;
k := k mod 100;
m := k div 10;
S := S + 100 * m;
k := k mod 10;
S := S + 1000 * k;
Writeln('Перевертыш: ', S)
end.
Тестовое решение:
Введите целое четырехзначное положительное число->1357
Перевертыш: 7531