Дана S – строка символов длиной n. Выяснить, верно ли что среди символов строки имеются все буквы, входящие в слово ШАР.

[satori22]

Написать программу.
Дана S – строка символов длиной n. Выяснить, верно ли что среди символов строки имеются все буквы, входящие в слово ШАР.

[digitalis]

Нужный язык программирования - военно-морская тайна. Телепаты усиленно пыхтят, разгадывая и бросив всё.

[newerow1989]

const n=10;
      abc='шар';
var s:string[n];
    i,j:integer;
    p:array[1..3] of integer;
begin
   Write('S = '); Readln(s);
   For j:=1 to 3 do
      p[j]:=0;
   For i:=1 to n do
      For j:=1 to 3 do
         If s[i]=abc[j] then
            Inc(p[j]);
   i:=1;
   For j:=1 to 3 do
      i:=i*p[j];
   If i>0 then
      Writeln('YES') else
      Writeln('NO');
   Readln;
end.

[digitalis]

Проще надо

begin
   Write('S = ');
   Readln(s);
   if (Pos('Ш',s) > 0) and (Pos('А',s) > 0) and (Pos('Р',s) > 0) then Writeln('YES') else
      Writeln('NO');
   Readln;
end.

Но ему не Паскаль надо, а Алгол-60