Даны символы S1, S2, … Известно, что символ S1 отличен от символа восклицательного знака и что среди S2, S3, … есть по крайней мере один восклицательный знак. Пусть S1, …, Sn — символы данной последовательности, предшествующие первому восклицательному знаку (n заранее неизвестно). Выяснить верно ли, что среди S1, …, Sn имеются все буквы, входящие в слово шина — Pascal(Паскаль)

var
a:string;
s:array[1..255]of char;
i,k,j,rez:integer;
begin
a:='sina';
repeat
writeln('vvedite simvol');
inc(k);
readln(s[k]);
until   s[k]='!';
for i:=1 to 4 do
for j:=1 to k do
if a[i]=s[j] then
begin
inc(rez);
break;
end;
if rez=4 then writeln('yes') else writeln('no');
readln;
end.

Похожие записи/страницы:

Leave a Comment

− 2 = 1