Contar la cantidad de palabras ingresadas en la secuencia
Publicado por Cesar (1 intervención) el 11/07/2020 01:24:18
11.Se lee una secuencia de caracteres terminada en punto. Dicha secuencia está formada por
palabras separadas por un espacio. Los caracteres aceptados en la secuencia son palabras,
espacios y punto final.
a) Contar la cantidad de palabras ingresadas en la secuencia.
b) Mostrar la palabra que tiene más caracteres.
c) Mostrar todas las palabras formadas por 2 o 3 caracteres.
d) Si la cantidad de palabras que forma la secuencia es impar, mostrar la secuencia
invertida.
tengo hecho esto pero no se como rellenar con los otros items
palabras separadas por un espacio. Los caracteres aceptados en la secuencia son palabras,
espacios y punto final.
a) Contar la cantidad de palabras ingresadas en la secuencia.
b) Mostrar la palabra que tiene más caracteres.
c) Mostrar todas las palabras formadas por 2 o 3 caracteres.
d) Si la cantidad de palabras que forma la secuencia es impar, mostrar la secuencia
invertida.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program ejercicio11;
uses crt,dos;
var
car:string;
cant,i:byte;
begin;
write('ingrese texto: ');
readln(car);
for i:= 1 to length(car) do
begin
if (car[i]=' ') and (car[i-1]<>' ') and (car[i-1]<>'') and (car[i+1]<>' ') and (car[i+1]<>'.') then
begin
cant:=cant+1;
end;
if (car[i]='.') then
begin
cant:=cant+1;
end;
end;
write('la cantidad de palabras es: ',cant);
end.
tengo hecho esto pero no se como rellenar con los otros items
Valora esta pregunta
0