Ответ:
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.
Банка 7 литровая-банка 1
Банка 4 литровая-банка 2
Сосуд 1 и 2 для того, чтобы разделить
Наливаем в банку 1 и переливаем в банку 2, сливаем эти 4 литра в сосуд 1. В банке 1 оставалось 3 литра сливаем в сосуд 2. Наливам в банку 2 и переливаем в банку 1(делаем так два раза), таким образом, в банке 2 останется 1 л сливаем в сосуд 1. Остальное количество седа сливаем в сосуд 2. Готово.
Из 10 сс в 8 сс :
42
60
171
323
515
Ну а чего тут писать то... как бы ты отняла 153 от 875 ?
875-153 ..: в позиционной системе счисления(которой является десятичная система_то есть от позиции зависит значение числа...) алгоритм таков..: 1) отнимаем единицы _если единиц не хватает то занимаем у десятков(10 единиц занимаем)... отнимаем 2) отнимаем десятки..если десятков не хватает занимаем десятки у тысяч (10 сотен занимаем) ... и так далее в зависимости от того на сколько длинные числа...
вообще говоря десятичную системы проходят на всем курсе математики... почему вы не знаете алгоритм _как вычесть из одного числа другое _это очень странно...а как сдачу считать в магазине?)