profile
Опубликовано 5 лет назад по предмету Информатика от ostin2319

Помогите написать программу на Паскале
Дана строка символов .Проверить есть ли в этой строке все буквы,входящие в слово "тигр"

  1. Ответ
    Ответ дан youvilir
    var i,n,k,z,x:integer;
    s:string;
    BEGIN
    writeln(s);readln(s);
    for i:=1 to length(s) do begin
    if (s[i]='т') then n:=n+1;end;
    for i:=1 to length(s) do begin
    if (s[i]='и') then k:=k+1;end;
    for i:=1 to length(s) do begin
    if (s[i]='г') then x:=x+1;end;
    for i:=1 to length(s) do begin
    if (s[i]='р') then z:=z+1;end;
    if ((n>0) and (k>0) and (x>0) and (z>0)) then writeln('есть все буквы')
    else writeln('no');end.
Самые новые вопросы
Носкова Анастасия
Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Наумова Надя
Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

Сазонова Анастасия
История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

Тетерина Татьяна
История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

Попова Полина
География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.