var
s, r : String;
i : Integer;
begin
r := '';
Writeln('Введите строку:');
Readln(s);
while s[i] <> #0 do
begin
if s[i] = ' ' then r:= r + ',';
r := r + s[i];
end;
Writeln(r);
Readln;
end.
ответ:
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.
объяснение:
ответ: 26, т. е. в данном случае критерием истинности может служить только авторитетность источника, проверенность его годами работы (иначе он не был бы авторитетным). Очевидно, что варианты 3, 5 - неверные. Вариант 4 разрешает сослаться на любой, в том числе недостоверный источник, что делает его неверным. Первый вариант может быть присущ и фейковой новости. Вариант 6 допускает возможность публикации информации на авторитетном сайте НЕ авторитетным человеком, но тогда это уже, понятно, неверно.
Простите, но в чем суть задания? Что делать? Поясните по-человечески