Question

Напишите полностью программу на Паскале

Answer 1

var

       str: string; i, count: integer;

begin

       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(count);

readln;

end.

Answer 2

Пишет ошибка

Answer 3

у меня все работает

Answer 4

var s:string;

i,k: integer;

begin

k:=0;

readln(s);

for i:=1 to length (s) do

if (s[i] = ' ') or (i = length(s)) then k:=k+1;

writeln(k);

end.

Answer 5

Пишет ошибка

Answer 6

Не увидела, что Free Pascal. Сейчас поправлю...

Answer 7

var s:string;
i,k: integer;
begin
k:=0;
readln(s);
s:=' '+s;
for i:=1 to length (s)-1 do
if ((s[i] = ' ') and (s[i+1] <> ' ')) then k:=k+1;
writeln(k);
end.

Answer 8

Там можно выбрат после загрузки файла PascalABC...