Широкополосная сеть стала доступна (2000)
var
a:array [1..20] of integer;
i,c,k:integer;
sr:real;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(80)-44;
write (a[i],' ');
end;
writeln;
write ('C = ');readln(c);
for i:=1 to 20 do
if a[i]>c then begin
sr:=sr+a[i];
k:=k+1;
end;
sr:=sr/k;
writeln (sr:0:2);
readln;
end.
Д) и в) одно и то-же (надеюсь понятно какой ответ, но если ты такой слоупок то правильные ответы В и Д
1)Т.к 1 мб=8000000 битов, тогда 8000000*136=1088000000 битов.
2)Т.к 1 тб=1000000000 КБ, тогда 1000000000*2=2000000000 кб.
3),4) немного не поняла, напиши я дорешаю.
5)Дано : | Решение.
V=12 кбит/с. | 1)Переведем 6 минут в сек. :
t=6 мин. | 6*60=360(сек)
_________ | 2)12*360=4320(кб).
S=?
Ответ :4320 килобайт.
Подробнее - на Znanija.com - znanija.com/task/30179393#readmore
Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2