ответ:
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.
объяснение:
Сетевой, иерархический, реляционный.
Объяснение:
Сетевая БД – это модель данных, где несколько записей или файлов могут быть связаны с несколькими владельцами файлов и наоборот.
В иерархической БД данные представлены в виде древовидной структуры.
В реляционной БД данные представлены в виде набора таблиц.