Составить программу, которая подсчитывает количество символов во втором слове

24.11.2013, 19:45. **Показов** 2317. **Ответов** 1

Студворк — интернет-сервис помощи студентам

там что-то через length, но вот как именно второго слова я хз, помогите

@uaDUREMARua · 24.11.2013, 20:21

Pascal

uses    crt;
var str: string;
    c: char;
    i, x, y: integer;
 
begin
    clrscr;
    writeln('Vvedite stroku:');
    readln(str);
    c:=' ';
    
    for i:=1 to length(str) do begin
        if c=str[i] then begin
            x:=i+1;
            break;
        end;
    end;
    
    for i:=x to length(str) do begin
        if c=str[i] then begin
            y:=i;
            break;
        end;        
    end;
    
    writeln('Dlina vtorogo slova: ', y-x);  
    readln;
end.

LeonidSparta2
		1
	Составить программу, которая подсчитывает количество символов во втором слове 24.11.2013, 19:45. Показов 2317. Ответов 1 Метки нет (Все метки) там что-то через length, но вот как именно второго слова я хз, помогите

Опции темы

Составить программу, которая подсчитывает количество символов во втором слове

Решение