Написать программу на pascal.это ! найдите и выведите на экран самую большую и самую маленькую цифру в трехзначном числе введенного с клавиатуры. желательно с объяснениями, т.к. в много однотипных . и просьба без "введите число" и т.д.заранее .

118

413

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

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

Знайка50000000

Информатика

4,6(69 оценок)

Var n, a1, a2, a3, min, max: integer; begin readln(n); n : = abs(n); a1 : = n mod 10; //в а1 хранится разряд единиц введённого числа n : = n div 10; //"стираем" в n последнюю цифру a2 : = n mod 10; //в а2 хранится рязряд десятков числа n n : = n div 10; a3 : = n mod 10; //в а3 хранится рязряд сотен числа n // //поиск минимума из цифр. в переменной мин //хранится наименьшее число на данном шаге. min : = a1; if a2 < min then min : = a2; if a3 < min then min : = a3; // //поиск максимума max : = a1; if a2 > max then max : = a2; if a3 > max then max : = a3; // writeln('min - ', min, ' max - ', max); end.

Spasibousjsjswj

Информатика

4,6(100 оценок)

Oooooooooooo omg you sac 2 ⊥))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))LoL you ))))))))