Program test;
const n = 100;
var i,k:integer;
m: array[1..n] of integer;
begin
randomize;
for i:=1 to n do m[i]:=random(1,100);
for i:=1 to n do if m[i] mod 2 =0
then inc(k);
writeln('Количество четных чисел: ',k);
end.<span>
</span>
Var
i,j:0..9;
n: integer;
begin
readln(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then writeln(i*10+j)
end.
6
15
24
33
42
51
60
<span>//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)</span>
begin
var n:=ReadInteger('Введите n-> ');
for var i:=1 to n do
Writeln((1+i)/(2+i):0:2);
end.
Пример:
Введите n-> 5
0.67
0.75
0.80
0.83
0.86
1. U=64000 бит/с = 2^6 * 1000 бит
V=125 кб = 125 * 2^13 бит
t=V/U
t=(125*2^13)/(2^6*1000)=(125*2^7)/1000=16 с
_______________________________________
2.U=256000 бит/с
t=2 мин=120 с
V=U*t=120*1000*2^8 бит=120.000*2^5 байт=120.000*2^-5 кбайт=3750 кбайт