Информация в памяти компьютера имеет 3. двоичную форму.
ответ:
var
str: string;
i, count: integer;
begin
write('your string: ');
readln(str);
i : = length(str);
if i > 0 then begin
count : = 1;
while i > 0 do begin
if str[i] = ' ' then
count : = count + 1;
i : = i - 1;
end;
end
else
count : = 0;
writeln('number of words: ', count);
readln;
end.
объяснение:
В компьютерах вся информация(звуковая, текстовая, графическая) хранится в виде 0 и 1 (двоичная форма)
ответ: 3.двоичную форму