1.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
if a[i]>0 then s:=a[i]+s;
end;
writeln(s);
end.
2.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10);
if a[i] mod 2 = 0 then s:=s+a[i];
end;
write(s);
end.
3.var a:array [1..10] of integer; i,s:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
if (i mod 2 = 0) and (a[i] mod 2 = 0) then s:=s+a[i];
end;
writeln(s);
end.
A) на первом листочке
((X v Y) & !Z) v !Z
k) на втором листочке
((X v Y) & X) & X & !Z
след задание на втором листке
все тоже самое только результат инвертирован
!( ((X v Y) & X) & X & !Z )
N = 2 в степени i //N=2^i
I = k * i
Маленькая буква i или b это одно и тоже
128 = 2^i
i= 7
I = i* k
k= 40
I = 40 * 7
I = 280бит
1 бит = 8байт
280/8= 35 байт
Ответ : 8байт или 280бит
Расписание уроков, календарь, журнал, школьный дневник
Var N,K : integer;beginK := 10; read(N); if (N div 10 + N mod 10) < K then begin writeln('Сумма цифр числа N меньше K'); end; writeln('N = ', N);end.