Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
<span>end.</span>
Var a:array[1..10] of real; i,j,m:integer; n:real;
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
readln(a[i]);
n:=n+a[i];
end;
n:=n/10;
for j:=1 to 10 do
begin
if (a[j]>n) then m:=m+1;
end;
writeln(m);
end.
N=2^i
V=i*k
1)N=17 => i>4(2^4=16) i=5
k=100
v1=32*100=3200бит
2)N=32 => i=5
k=50
v2=32*50=1600бит
Ответ:Мульти передали в 2 раза больше информации чем пульти
1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.