Задание:
Помогите пожалуйста. Дано целое трехзначное число a. Получить утроенное значение числа, состоящего из цифр числа a, записанных в неубывающем порядке. Входные данные: Во входном потоке записано единственное целое трехзначное число a. Выходные данные: В выходной поток вывести единственное целое число. Пример входного файла (input.txt): 748 Пример выходного файла (output.txt): 1434
Решение:
uses crt; var i,j,n: integer; a: string; t: char; beginread (a); for i: =1 to length (a) dofor j: =1 to length (a) -i doif a[j]>a[j+1] thenbegint: =a[j]; a[j]: =a[j+1]; a[j+1]: =t; end; writeln (3*strtoint (a); end.
Знаете другой ответ?