Uses crt;
var a: array [1..10] of integer;
i,s,k:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:8);
if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;
end;
writeln('Кол-во четных = ',s);
writeln('Кол-во нечетных = ',k);
end.
Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
<span>end.
Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
<span>end.</span>
</span>
Var
x,y:real;
begin
Write('Введите значение аргумента x: ');
Readln(x);
if x<=-7 then y:=25
else
if x<=5 then y:=17*x-1
else y:=sqr(x);
Writeln('Значение функции равно ',y:0:4)
end.
Тестовое решение:
Введите значение аргумента x: 3.78
Значение функции равно 63.2600
Длина цепочки равна 1сантиметру
1)8^10=2^3^10 2^30/2^10(Кбайт)2^10=2^10=1024 <span>Мбайт</span>
2) A= K*b
Надо перевести в биты 4Кб=2^2*2^13=2^15
K=2^15/2^4=2^11=2048 c
