Question

Как на языке PascalABC выписать квадрат минимальной и максимальной цифры в трехзначном числе введенного с клавиатуры?
Очень желательно с объяснениями вне программы и чтобы работало с отрицательными числами. Желательно с объяснениями, т.к. в домашнем задании ещё много подобных задач. А вне программы чтобы не вырезать вставки. Заранее спасибо.15 баллов.

Answer 1

uses crt;
var a,max,x,min:integer;
begin clrscr;
write('Vvedite chislo: '); readln(a);
a:=abs(a);
max:=a mod 10;
min:=a mod 10;
while a>0 do  begin 
x:=a mod 10; 
a:=a div 10; 
if x>max then max:=x; 
if x<min then min:=x; 
end;
writeln('Max^2: ',sqr(max));
writeln('Min^2: ',sqr(min));
readln;
end.