Var s: String;
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.
Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>
1)6 бит
Так как от 11 до 74 включительно то получаем что всего 64
Количество информации в одном символе можно найти по формуле
N=2^i
64=2^6
Из этого следует что один символ весит 6 бит
2)5541(8)
B43(16)=5503(8)
5503(8)+36(8)=5541(8)
3)Если не ошибаюсь то 5 единиц
<span>172(10) = 10101100(2)
</span>0,25(10) = 0100(2)
10101100,0100(2)
4)BBC
b=101
c=110
d=111
a=100
bcda=101110111100(2)
101110111100(2)=bbc(16)
Вставил прогу в паскаль он сам все считает
2) 50
3) 56
4) 55
5) 243
6) 35
7) 64