Question

un program Pascal va rog.
se da un text si o litera sa se creeze un program daca litera data se contine in textul dat in caz afirmativ sa se afiseza prima pozitie a literei altfel mesajul corespunzator

Answer 1

Program Augustin;
var
l,t:string;
i,s:integer;
begin
Writeln('Introdu textul'):
readln(t);
Writeln('Introdu litera');
readln(l);
for i:=1 to length(t) do
begin
if t[i]=' ' then s:=s else s:=s+1;
if t[i]=l then Writeln('Litera introdusa se afla pe pozitia ',s,' in text');
end;
readln;
end.