іть Виводить в консоль все парні цифри числа, який вводить користувач. Парні цифри знаходити з кінця числа і виводити кожну знайдену цифру на новому рядку

Sample Input:

42732
Sample Output:

2
2
4

258

401

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

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

Sofa29122005

Информатика

4,8(68 оценок)

Const n = 12; var temp: integer; var ar: array[1..n] of integer; begin for var i: = 1 to n do read(ar[i]); for var a: = 1 to n do for var b: = 1 to n do if (b< n) and (ar[b]< ar[b+1]) then begin temp: = ar[b]; ar[b]: = ar[b+1]; ar[b+1]: = temp; end; writeln('два наибольших '+ar[1]+ ' и '+ar[2]+'.'); writeln('два наименьших '+ar[n-1]+' и '+ar[n]+'.'); end. жмякаем 'лучший'