Сначала нужно найти отношения размера файла за переданное время и приравнять для двух случаев. Скорость передачи не изменна, поэтому, размер файла зависит только от времени.
10Мб/130с=х/65с
х=650/130
х=5
3.5 кб переводим в биты=3,5*1024=34304 байта
в печатном символе 8 бит как раз 1 байт
Ответ 34304 символа
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7
Из компьютерной графики нам известно, что разрешение - это велечина, опредеющая кол-во точек(елементов рострового изображения) на еденицу площади или длины.
№4
var
x1,x2,x3,y1,y2,y3,a,b,c,p: real;
begin
write ('Введите x1 = '); readln (x1);
write ('Введите y1 = '); readln (y1);
write ('Введите x2 = '); readln (x2);
write ('Введите y2 = '); readln (y2);
write ('Введите x3 = '); readln (x3);
write ('Введите y3 = '); readln (y3);
a:=sqrt(abs(x2-x1)*abs(x2-x1)+abs(y2-y1)*abs(y2-y1));
b:=sqrt(abs(x3-x2)*abs(x3-x2)+abs(y3-y2)*abs(y3-y2));
c:=sqrt(abs(x1-x3)*abs(x1-x3)+abs(y1-y3)*abs(y1-y3));
p:=a+b+c;
writeln ('Периметр = ',p:6:2);
end.
-----------------------------------------
Введите x1 = -1.51
Введите y1 = -8.65
Введите x2 = -5.4
Введите y2 = -3.92
Введите x3 = 0.47
Введите y3 = 9.11
Периметр = 38.29
№5
const pi=3.14;
var r,l,s: real;
begin
write ('Введите радиус r = ');
readln (r);
l:=2*pi*r;
s:=pi*r*r;
writeln ('Длина окружности l = ',l);
writeln ('Площадь круга S = ',s);
end.
------------------------------------------
Введите радиус r = 5
Длина окружности l = 31.4
Площадь круга S = 78.5