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

Question

Информатика

Бонифатий

7 февраля, 12:21

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

+1

Ответы (1)

Знаете ответ на вопрос?

Савватий · Answer 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.