Ответ: Основание системы счисления равно 6
//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111
Var
i,max,n,a:integer;
begin
readln(n);
max:=-2147483648;
i:=1;
while i<>n+1 do
begin;
readln(a);
if (max<a) and (a mod 2=0) then max:=a;
i:=i+1;
end;
write(max);
<span>end.
</span>
Пример ввода:
4
1
2
3
4
Пример вывода:
4
А) после "умножить" в памяти останется только одно число, а для следующей команды "вычесть" их должно быть как минимум два.
Б) для исполнителя не определена инструкция "разделить"
В) после "взять число" не хватает самого числа