//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
Дано:
Скорость1=1536 бит/c
Скорость2=768 бит/c
Размер файла1= 100 Кбайт=102400байт=819200 бит
Размер файла2= ?
Решение:
819200 / 1536 = 533,3 сек - скорость передачи 100 Кбайт данных по скорости1
533,3 * 768 = 409600 бит / 8 = 51200 байт / 1024 = 50 Кбайт - вес файла 2