profile
Опубликовано 5 лет назад по предмету Информатика от Nina159

Ввести предложение (между словами не менее одного пробела). Вывести длину самого длинного слова.

  1. Ответ
    Ответ дан Ghost22

    Program PR1;
    uses crt;
    var stroka,tmp:string;
    i,b,max:integer;
    Begin
    clrscr;
    readln(stroka);
    max:=0;
    for i:=1 to length(stroka) do if (stroka[i]=' ') or (stroka[i]='.') then begin
    if length(tmp)>max then max:=length(tmp);
    tmp:='';
    end
    else begin
    tmp:=tmp+stroka[i];
    if i=length(stroka) then if length(tmp)>max then max:=length(tmp);
    end;
    writeln(max);
    end.

     

Самые новые вопросы