Question

PASCAL !!!

mam do napisania program, ktory oczekuje na pwisanie dowolnego zdania, nastepnie informuje z ilu liter i ilu wyrazow sklada sie wpisane zdanie. UWAGA! spacja nie jest litera...

program zaczyna sie w ten sposob:

program abc;
uses crt;
var zdanie:string;
i:byte;
begin
clrscr;
writeln('Program oczekuje na wpisanie dowolnego zdania, nastepnie informuje z ilu');
writeln(' liter i ilu wyrazow sklada sie wpisane zdanie.');
writeln;
writeln('UWAGA=spacja nie jest litera.');
writeln;
writeln('Wpisz dowolne zdanie: ');
readln(zdanie);

i teraz nie wiem co dalej, jak to zrobic ?

Answer 1

Program abc;
uses crt;
var zdanie:string;
i,litery,wyrazy:byte;

begin
clrscr;
writeln('Program oczekuje na wpisanie dowolnego zdania, nastepnie informuje z ilu');
writeln(' liter i ilu wyrazow sklada sie wpisane zdanie.');
writeln;
writeln('UWAGA=spacja nie jest litera.');
writeln;
writeln('Wpisz dowolne zdanie: ');
readln(zdanie);
for i := 1 to length(zdanie) do
if zdanie[i] <> ' ' then litery := litery+1;
wyrazy := length(zdanie)-litery+1;


Writeln('Liter w zdaniu jest: ',litery);
Writeln('Wyrazow w zdaniu jest: ',wyrazy);

readln;
end.