1) 947 и 669 ; сложить в двоичной системе, проверить 2) 231 и 449 ; модуль разности в двоичной системе, - id148415320220311 от lex9090 11.03.2022 04:50

Question

Информатика: 1) 947 и 669 ; сложить в двоичной системе, проверить 2) 231 и 449 ; модуль разности в двоичной системе, проверить 3) 111101 (в сист с осн. 2) и 1341 (в сист с осн. 10); умножить, проверить 4) 128 ^ 3639 + 16 ^ 3783 - 256 ^ 2073 - 32 ^ 3807 ; кол-во единиц в модуле двоич. представления

lex9090 · Accepted Answer

// Язык Паскаль

Program Massiv;

Uses Crt;

const n=10; // Нужно больше сам подставишь нужное число

var a:array[1..n] of integer;

i,c:integer;

begin

clrscr;

write('Введите элементы массива: ');

c:=0;

for i:=1 to n do

begin

readln(a[i]);

if (a[i] mod 2)=0 then c:=c+1;

end;

writeln;

write('Исходный массив:');

for i:=1 to n do write(a[i],' ');

writeln('Количество чётных элементов: ',c);

readkey;

end.

MOGZ ответил