Инвертированное к некоторому натуральному числу x - это число, в котором все цифры исходного числа х заптсаны в обратном порядке, если у результата есть лидирующие нули, они отбрасываются. обозначим такое число х1. наришите прогрпмму которая сравнивает х и х1

224

401

Посмотреть ответы 2

Ответы на вопрос:

MishaBig

Информатика

4,4(95 оценок)

//pascalabc.net 3.2 сборка 1318 var x,x1,i: integer; xs: string; c: char; begin readln(x); xs: =inttostr(x); for i: =1 to length(xs) div 2 do begin c: =xs[i]; xs[i]: =xs[length(xs)-i+1]; xs[length(xs)-i+1]: =c; end; x1: =strtoint(xs); if x1> x then writeln(x1,'> ',x) else if x1< x then writeln(x,'> ',x1) else writeln(x1,'=',x); end. пример ввода: 1230 пример вывода: 1230> 321

Luvizum

Информатика

4,5(22 оценок)

Const nm = 50; {максимальная длина массива} var i, n, max, p: integer; a: array[1..nm] of integer; begin write('введите количество элементов в массиве: '); readln(n); max : = -32768; write('введите элементы массива через пробел '); for i : = 1 to n do begin read(a[i]); if max < = a[i] then begin max : = a[i]; p : = i end end; writeln('последний максимальный элемент ', max, ' имеет номер ', p) end. тестовое решение: введите количество элементов в массиве: 10 введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5 последний максимальный элемент 6 имеет номер 7