Предмет: Информатика,
автор: ИльяО6о
Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.
Написать программу в Pascal.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: tupoys300hromosom
Предмет: Информатика,
автор: alimeevilgar
Предмет: Геометрия,
автор: Аноним