Брой букви и думи

Публикувано на 04 декември, вторник от Данаил

Да се напише програма, позволяваща да се въведе изречение съдържащо няколко думи, и отпечатва броят на буквите и думите в изречението. Думите са разделени с по един интервал.

По желание:

  1. Да се реши задачата, ако е позволено да се въведат няколко изречения и думите може да са отделени и с препинателни знаци (запетая, точка и запетая, въпросителна, удивителна).
  2. Да се реши задачата, ако думите може да са отделени с повече от един интервал.
Публикувано в 10в с етикети . Постоянна връзка.

2 Responses to Брой букви и думи

  1. Maria Cvetanova каза:
    11 декември, вторник в 10:24 
     program project1;
var
s:string[20];
broi,i ,dumi:integer;
begin
WriteLn('Napishete neshto smisleno :');
ReadLn(s);
Dumi=0;
Broi=0;
 for i:=1 to Length (s) do
  begin
   if (s[i]=' ') then dumi:= dumi+1 ;
    if ((s[i]>='A') and (s[i]<='Z'))or((s[i]>='a') and (s[i]<='z'))then
     broi:=broi+1 ;
  end;
  WriteLn('Broq na dumite sa:' dumi);
  WriteLm('Broq na bukvite sa:' broi);
  Readln;
end.
  2. kaloyan каза:
    11 декември, вторник в 10:24

    VAR s:string;
    i,x:integer;
    BEGIN
    write(‘Vavedi izre4enie:’); readln(s);
    x:=0;
    for i:=1 to length(s) do
    if s[i]=’ ‘ then x:=x+1;

    writeln(‘Bukvite sa ‘,length(s)-x,’, dumite sa ‘,x+1);

    readln;
    END.
    [/psacal]

Вашият коментар