• ввести строку с клавиатуры ввести символ с клавиатуры используя оператора ввода задать некоторую строку содержашая 15-25 символов определить длину строки вывести на экран сам символ и позицую в каторой он найден (также надо задать любое четверостишие это оченка 5)

Ответы 1

  • var ch,n,i:longint;

    ch1,s:string;

    begin

      read(s,ch);

      n:=length(s);

      writeln(n,' ',ch);

      str(ch,ch1);

      for i:=1 to n do if s[i]=ch1 then write(i,' ');

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years