program raf105;
var x,y,n,i: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
begin
x:= i;
y:= 4-x;
writeln(i:2,'. x=',x:2,' y=',y:2);
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Вроде как 4 бита информации, так как объем знаний постоянно уменьшается в 2 раза(а уменьшение объема информации в 2 раза даёт один бит информации)
0/2-не аттестованны - 1 бит
1/2 - 1 бит
1/4 - 1 бит
1/8 - 1 бит
Наверное так
1+1+1+1=4
Ответ:
Программа запускалась в PascalABC.NET
Объяснение:
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.
График посторить здесь не смогу но начни с ПИКСЕЛЯ И Т.Д