uses Math;
var i,n:integer;
begin
write('Введите число N: ');
readln(n);
for i:=1 to n do
write(power(2,i):0:0,' ');
readln
end.
Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
1) - Гбайт (самый большой, гига это
)
2)- Мбайт (1024 кбайта)
3)- кбайт (1024 байта)
4) - байт ( это 8 битов)
5) - бит - малейшая единица информации.
Не могу знать сколькими числами нужно заполнять массив,поэтому взял 10.
1)import randomA=[]s=10chet=0nechet=0while s!=0: i=random.randint(20,100) A.append(i) s-=1
for j in A: if j%2==0: chet=chet+1 else: nechet=nechet+1
print(chet,nechet)
А) 1 работник - источник, 2 работник - приемник.
б) учитель - источник, ученики - приемник.
в) газета - источник, девочка - приемник.
г) 1 девочка - источник и приемник, 2 девочка так же источник и приемник.