program z1; uses crt; var s: string; c: char; i: integer; begin write(' Vvedite strocy: '); readln(s);
writeln();
write(' Vvedite sivol dl poiska: '); readln(c);
writeln(); for i := 1 to length(s) do if s[i] = c then // begin writeln(' Simvol prinadlech stroce = ', s); break; end; if s[i] <> c then writeln(' Simvola net v stroke = ', s); end.
Паскаль
Откомпилирован в: Pascal ABC
program z1;
uses crt;
var
s: string;
c: char;
i: integer;
begin
write(' Vvedite strocy: ');
readln(s);
writeln();
write(' Vvedite sivol dl poiska: ');
readln(c);
writeln();
for i := 1 to length(s) do
if s[i] = c then //
begin
writeln(' Simvol prinadlech stroce = ', s);
break;
end;
if s[i] <> c then writeln(' Simvola net v stroke = ', s);
end.