Как ** языке PascalABC выписать квадрат минимальной и максимальной цифры в трехзначном...

Question

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

Comments

Выписывать все варианты глупо, потому что в домашнем задании есть такая же задача, только с пятизначным числом.

---

И не только поэтому.

---

if a[i]<0 then inc(k)находим меньше 0)

---

а ник то Анастасияпрограммист, что-то не видно =), ладно шас попробую вам помочь

---

Я начинающая.

---

Начало есть, а конца нету.

---

Вы тут?

---

Var N, a1, a2, a3, min, max: integer;BeginReadln(N);a1:=N div 100;a2:=N div 10 mod 10;a3:=N mod 10;min := a1;          if a2 < min thenmin := a2;if a3 < min thenmin := a3;max := a1;if a2 > max thenmax := a2;if a3 > max thenmax := a3;Writeln(sqr(min),' ',sqr(max));End.

---

Это начало.Теперь нужно сделать все это с отрицательными числами.

---

Ваша программа работает не коректно

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 xend;
writeln('Max^2: ',sqr(max));
writeln('Min^2: ',sqr(min));
readln;
end.