Question

Napisz w programie Free Pascal program z wykorzystaniem zmiennej tablicowej oraz pętli, który pobierze od użytkowmika litery, a następnie wypiszee ile razy wystąpiła litera a.

Proszę o szybką odpowiedź.

Answer 1

Program znaki;

uses CRT;

var z1,z2: char;

n,i,ile: integer;

 

begin

 

repeat

Write(' Podaj ilosc znakow: '); Read(n);

until n>0;

 

Write(' Podaj szukany znak: '); Read(z1);

 

Write(' Podawaj znaki');

 

ile:=0;

 

for i:=1 to

begin

 

Read(z2);

 

if z2=z1 then Inc(ile);

 

end;

 

Write(' Podany znak wystapil ',ile,' razy');

 

repeat until KeyPressed;

 

end.