Написать программу в pascal. найти разность наибольшей и наименьшей цифр 3-х значного числа.

284

381

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

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

сичоврчс

Информатика

4,7(67 оценок)

Var a, b, c, r : integer; begin c: =0; r: =9; write('введите число: '); readln(a); while a div 10 < > 0 do begin b: =a mod 10; a: =a div 10; if b> c then c: =b; if b< r then r: =b; end; b: =a mod 10; a: =a div 10; if b> c then c: =b; if b< r then r: =b; writeln('разность: ', c-r); end. да хоть для 10