Среди приведенных ниже 3 чисел записанных в различных системах счисления Найдите минимальное и запишите его в ответе в десятичной системе счисления в ответе Запишите только число основание системы счисления указывать не нужно 20(16) 36(8) 11100(2)
Ответы на вопрос:
const
n = 30;
var
a: array [1..n] of integer;
maxev, maxodd, i: integer;
begin
for i : = 1 to n do
begin
write('a[', i , '] = ');
readln(a[i]);
end;
maxev : = 0;
maxodd : = 0;
for i : = 1 to n do { перебираем все элементы массива}
if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}
begin
if a[i] > maxev then {если да, то проверяем больше ли найденного до этого наибольшего четного}
maxev : = a[i]; {присваиваем новое наибольшее четное значение}
end
else
if a[i] > maxodd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}
maxodd : = a[i]; {присваиваем новое наибольшее нечетное значение}
writeln ('maxev - maxodd = ', maxev, ' - ', maxodd, ' = ', maxev - maxodd);
end.
Популярно: Информатика
-
5555Анастасия555529.11.2022 00:02
-
Tina210324.06.2023 05:11
-
derzhak1234518.11.2020 10:12
-
ArianTop30.07.2020 08:02
-
yulokkons10.11.2021 03:37
-
tanyaxxx1517.07.2022 04:47
-
julirim01305.06.2020 13:13
-
любаня2020.02.2023 02:20
-
Penguinunicirn21.02.2023 07:11
-
aleksandrbersh025.03.2022 11:56