Napisz program w PASCALU, który po wpisaniu danego słowa wypisze ile jest w nim zawartych literek "A".
vegixa
Program literki; uses CRT; var word: string; i, liczba: integer; begin liczba:=0; clrscr; Write('Podaj slowo jakie mam sprawdzic: '); readln(word); for i := 1 to length(word) do if (word[i] = 'a') or (word[i] = 'A') then liczba := liczba + 1; writeln; Write('Liter a w slowie ',word,': ',liczba);
uses CRT;
var
word: string;
i, liczba: integer;
begin
liczba:=0;
clrscr;
Write('Podaj slowo jakie mam sprawdzic: ');
readln(word);
for i := 1 to length(word) do
if (word[i] = 'a') or (word[i] = 'A') then liczba := liczba + 1;
writeln;
Write('Liter a w slowie ',word,': ',liczba);
readln;
end.