64 Кбайта = 64*1024 байт = 64*1024*8 бит
Время передачи файла = 64*1024*8 / 1024 = 64*8 с
Размер файла, <span>который можно передать за то же время через другое соединение со скоростью 256 бит в секунду:
256*64*8 бит = 256*64*8 / 8 байт = 256*64 байт = 256*64 / 1024 Кбайт = 16 Кбайт</span>
Var
x,y:real;
begin
x:=-1;
while x<=1 do begin
Writeln('x=',x:4:1,', y=',x*x*x:9:6);
x:=x+0.1
end
end.
<em><u>Результат выполнения программы:</u></em>
x=-1.0, y=-1.000000
x=-0.9, y=-0.729000
x=-0.8, y=-0.512000
x=-0.7, y=-0.343000
x=-0.6, y=-0.216000
x=-0.5, y=-0.125000
x=-0.4, y=-0.064000
x=-0.3, y=-0.027000
x=-0.2, y=-0.008000
x=-0.1, y=-0.001000
x= 0.0, y= 0.000000
x= 0.1, y= 0.001000
x= 0.2, y= 0.008000
x= 0.3, y= 0.027000
x= 0.4, y= 0.064000
x= 0.5, y= 0.125000
x= 0.6, y= 0.216000
x= 0.7, y= 0.343000
x= 0.8, y= 0.512000
x= 0.9, y= 0.729000
x= 1.0, y= 1.000000
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=a+b+c;
var k:=Trunc(sqrt(s));
if k*k=s then Writeln('Сумма чисел - квадрат ',k)
else Writeln('Сумма чисел не является квадратом целого')
end.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
var a,b,c:integer;
Write('Введите три натуральных числа: '); Read(a,b,c);
var s:=power(a*b*c,1/3);
if s=int(s) then Writeln('Среднее геометрическое - целое число')
else Writeln('Среднее геометрическое - нецелое число')
end.
<u><em>Тестовое решение</em></u>
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число
Var y,x:real;
begin
x:=-2;
while x <= 2 do begin
y:=sqr(x)-2x;{Считаем значение функции}
writeln(y);{Выводим значение функции}
x:=x+0.5;{Наш шаг цикла}
end;
end.
