ответ: 26, т. е. в данном случае критерием истинности может служить только авторитетность источника, проверенность его годами работы (иначе он не был бы авторитетным). Очевидно, что варианты 3, 5 - неверные. Вариант 4 разрешает сослаться на любой, в том числе недостоверный источник, что делает его неверным. Первый вариант может быть присущ и фейковой новости. Вариант 6 допускает возможность публикации информации на авторитетном сайте НЕ авторитетным человеком, но тогда это уже, понятно, неверно.
ответ:
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.
объяснение: