1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
1-е изображение 200*400*1=80000 бит
2-е изображение 100*200*2=40000 бит
Объем памяти занимаемый 1ым изображением в 2 раза больше объема 2ого изображения. Т.к. первое изображение больше в 4 раза, но число цветов палитры меньше в 2 раза.
Simplify ¬АvВ v ¬(А&С) = <span>¬АvВ v ¬С
</span>logic circuit in <span>addition</span>
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
№5 ответ: 1 байт (весь алфавит 128 байт)