512 кбит/с=64 кбайт/с
В минуту – 64*60=3800 кбайт=3,75 Мбайт
1 Гбайт = 1024 Мбайт
1024/3,75=273,1 минуты
<span>273,1/60=4,55 часа=4 часа 33 минуты </span>
1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
В самом скрипте написано - надо нажать клавишу Пробел.
//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
1. дом.bmp. потому что это графический файл, а все остальные текстовые.
2. лето.Jpg, это графический файл, потому что к графическим файлам относятся: bmp. jpg. gif.