Регистрация
Denafasf
23.10.2021 09:58
Информатика
Есть ответ 👍

Чему равна разность чисел в двоичной системе счисления: 1111001 и 1011. *

1000010

101110

1100110​

290
469
Посмотреть ответы 1

Ответы на вопрос:

aibekauezhanme
aibekauezhanme
4,5(42 оценок)

var

    numbers: array[1..10] of integer;

    i, first, last, count, num: integer;

begin

    writeln('введите 10 чисел');

   

    for i : = 1 to 10 do

        readln(numbers[i]);

    first : = numbers[1];

    last : = numbers[10];

   

    for i : = 1 to 10 do begin

        num : = numbers[i];

       

        if (num > = first) and (num mod first = 0) then

            if (num < last) or (num mod last < > 0) then

                count : = count + 1;

    end;

   

    writeln(count);

end.

Популярно: Информатика