ответ:
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.
объяснение:
2 - 6
Объяснение:
A2 = 1
B2 = 1
C2 = 1
D2 если посмотреть на диаграмму, то можно увидеть,что тут должна стоять 3, поэтому 6 - 4 + 1 = 3