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.
Получше изложи задачу пожалуйста..
В смысле как? Все вещи делить на три части?
Тут что-то неполностью написано
128 Кб/сек * 30 сек = 3840 Кбайт : 1024= 3,75 Мбайт
1-десятка
2-тысяча
3-сотая
4-единица
Ну мне кажется иут ответ 2