1) a x b = 1 при a=1 возможно (если b=1)
2) a x b = 1 при а=0 противоречиво, результат 0
3) a + b = 0 при a=1 противоречиво, результат 1
4) a + b = 1 при a=0 возможно (если b=1)
1)Var a: array [1..10] of integer;
pr,i:integer;
begin
pr:=1;
for i:=1 to 10 do
begin
readln(a[i]);
if a[i] mod 7 = 0 then
pr:=pr*a[i];
end;
writeln(pr);
end.
2)Var a: array [1..17] of integer;
count,i:integer;
begin
randomize;
count:=0;
for i:=1 to 17 do
begin
a[i]:=random(21)-10;
writeln(a[i]);
if a[i]>0 then inc(count);
end;
writeln(count);
end.
3)Var a: array of integer;
count,i,n,c:integer;
begin
readln(n);
count:=0;
Setlength(a,n+1);
c:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i]>5) and (i mod 2 =0) then
begin
inc(count);
c:=c+a[i];
end;
end;
writeln(c/count);
end.
4)Const N=35;
Var a: array [1..N] of integer;
i:integer;
begin
randomize;
for i:=1 to N do
begin
a[i]:=random(21)-5;
write(a[i]:4);
if (a[i] mod 10 = 5) then a[i]:=0
else a[i]:=1;
end;
writeln;
for i:=1 to N do
write(a[i]:4);
end.
1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
Найдем кол-во бит в одном пикселе:
4=2^x
x=2
Объем видеопамяти = 320*240*2=153600 бит=19200 байт = 18,75 Кбайт
Это программа меняет на противоположный(+ на - и наооборот)
program apscala;var a,b,max:integer;beginreadln(a,b);if a>b then max:=a else max:=b;max:=-max;writeln(max);end.<span>
</span>