Условием проверяй, какое число больше.
1)80 бит
2)12 байт
3)0.5 кБайт
4)1025 кБайт
5)1 Мбайт
6)500 Мбайт
От меньшего к большему
A и b - это, я так понял, x и y? Тогда так.
П1 <-> П0 3 <-> x^y 2 , 5 ИП0 ИП1 * * - 1 , 7 8 ИП0 x^2 * + 2 , 5 ИП1 * - 1 + С/П
Ответ:
var
a: array [1..3] of Integer;
i, imin: Integer;
begin
for i := Low (a) to High (a) do begin
Write (i, ' число: ');
ReadLn (a [i]);
end;
imin := 0;
for i := Low (a) to High (a) do begin
if a [i] mod 2 = 0 then
if imin = 0 then
imin := i
else if a [i] < a [imin] then
imin := i;
end;
if imin <> 0 then
WriteLn ('Наименьшее четное = ', a [imin])
else
WriteLn ('Четных чисел нет.');
ReadLn;
end.
For i=1 to 15
input a
s=s+a
next
? s