1.взять миску
2.открыть холодильник
3.взять корм
4.закрыть холодильник
5.наложить корм в миску
6.поставить миску собаке
7.помыть миску после того как собака поела
8.вытереть мордочку собаке
9.конец
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
end;
Дано:
N1=256
N2=32
k1=k2=k
Найти:
Решение
i-вес одного символа в битах
N- мощность алфавита, или количество символов
- информационный объем
Ответ. Первый объем больше второго в 1.6 раз
Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>