Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2020, 21:36   #1
satori22
Новичок
Джуниор
 
Регистрация: 04.12.2020
Сообщений: 1
По умолчанию Дана S – строка символов длиной n. Выяснить, верно ли что среди символов строки имеются все буквы, входящие в слово ШАР.

Написать программу.
Дана S – строка символов длиной n. Выяснить, верно ли что среди символов строки имеются все буквы, входящие в слово ШАР.
satori22 вне форума Ответить с цитированием
Старый 04.12.2020, 23:40   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Нужный язык программирования - военно-морская тайна. Телепаты усиленно пыхтят, разгадывая и бросив всё.
digitalis вне форума Ответить с цитированием
Старый 13.12.2020, 11:25   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
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.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 13.12.2020, 12:48   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Проще надо
Код:
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
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Язык СИ. Дана строка текста длиной не более 1000 символов. Вывести измененную строку, где каждое слово исходной строки записано задом наперёд helu Помощь студентам 0 04.12.2018 22:07
Дана последовательность символов. Выяснить, имеются ли в последовательности все буквы, входящие в слово "тина" LLlystr1zty Помощь студентам 3 22.12.2016 11:57
На C++ Дана последовательность символов. Выяснить, имеются ли в последовательности все буквы, входящие в слово "тина" LLlystr1zty Помощь студентам 0 21.12.2016 22:11
Дана строка символов. Заменить все буквы d, после которых следует запятая, на буквы x (Си) XedCrab Помощь студентам 3 29.01.2014 10:49
Строки. Дана строка символов,среди которых есть двоеточие ( : ). Определить сколько символов ему предшествуют. Un1q Паскаль, Turbo Pascal, PascalABC.NET 2 11.12.2013 14:52