Question

Помогите решить задачи по информатике!
1.Дана символьная строка. Определить, есть ли в строке слово из трех букв.
2.Дана строка. Определить, есть ли в ней буква s.
Других данных нет.
Только пожалуйста не пишите решай сама!)

Answer 1

var s:string;
i,k:integer;
b:boolean;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]<>' ') then begin inc(k);
  if k=3 then b:=true; end
else k:=0;
writeln(b);
end.

var i:integer;
s:string;
b:boolean;
s1:char;
begin
readln(s);
readln(s1);
for i:=1 to length(s) do
if s[i]=s1 then b:=true;
writeln(b);
end.