Question

Sa se scrie un program care afiseaza "Da" sau "Nu" , in dependenta de faptul daca o litera arbitrara x se contine sau nu in cuvintul y.(IN PASCAL)

Answer 1

Program Tema;

var c,x:char;
    y:string;
    este_in_sir:integer;
Begin
este_in_sir:=0;
writeln('Introduceti sirul y: ');
readln(y);
writeln('Introduceti caracterul x: ');
readln(x);
for c in y do
begin
if c=x then
begin
este_in_sir:=1;
break;
end;
end;
if este_in_sir=1 then
writeln('Da')
else
writeln('Nu');
End.