Вот решение первой задачки:
program Sosed;
uses Crt;
const n = 10;
type Vec = array [1..n] of integer;
var A: Vec;
i, Col: integer;
begin
ClrScr;
Randomize;
WriteLn('Massiv A:');
for i:=1 to n do
begin
A[i]:= 10+random (90);
Write (A[i]:4);
end;
WriteLn;
Col:=0;
for i:=2 to n do
begin
if A[i]<A[i-1] then
Col:=Col+1;
end;
WriteLn;
if Col<>0 then Writeln('Col =', Col)
else WriteLn('None!');
ReadLn;
end.
<span>5) 4096 бит.
0.5 килобайт = 512 байт.
1 байт = 8 бит
512 байт = 4096 бит</span>
Program Slovo;
var
s1,s2: string;
begin
s1:='абитуриент';
s2:=s1[2]+s1[5]+s1[9]+s1[10] ; //s1[2] = 'Б' s2[5]='у' s2[9]='н' s1[10]='т'
write(s2);
end.
1.Купить семена (цветка)
2.Найти хорошое место для посадки цветочка
3.Вскопать яму.
4.Посадить семя.
5.Закопать яму.
6.Полить