1. вычислите: 1) 1+x& 02) x& x& 13) 0& x+04) 0+x& x2. найдите все целые числа z, - id986218920230108 от neriman04 08.01.2023 23:59

Question

Информатика: 1. вычислите: 1) 1+x& 02) x& x& 13) 0& x+04) 0+x& x2. найдите все целые числа z, для которых истинно высказывание: 1) (отрицание (инверсия) (z 5)) & (z2 100) 2) (отрицание (z 5)- (z 10)) 3. логическое отрицание восьмиразрядного двоичного числа записанное в десятичной системе счисления равно 217 определите исходное число в десятичной системе счисления

neriman04 · Accepted Answer

Program SumAndMul;

Uses Crt;

var a:array[1..10] of real;

i:integer;

sum,mul:longint;

begin

clrscr;

for i:=1 to 10 do

begin

write('Введите -', i,' число:' );

readln(a[i]);

end;

sum:=0;mul:=1;

for i:=1 to 10 do

begin

if (a[i]>0) then sum:=sum+a[i];

if (a[i]<0 ) then mul:=mul*a[i];

end;

writeln('Сумма положительных элементов: ',sum);

writeln('Произведение отрицательных элементов: ',mul);

readkey;

end.

MOGZ ответил