Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.

Написать программу в Pascal.

Question

Информатика

Аникита

9 февраля, 19:10

Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.

Написать программу в Pascal.

+1

Ответы (1)

Знаете ответ?

Мариамночка · Answer 1

Var a, b, c:integer;

p, n:string;

begin

readln (p)

; For a:=1 to length (p) do

begin

n:=copy (p, a, 1) ;

If (n=' ') or (n=',') then

begin

If b>c then c:=b;

b:=0

end

else

b:=b+1;

end;

If c=0 then c:=b;

writeln (c) ;

end.

Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.Написать программу в Pascal.

Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.

Написать программу в Pascal.