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

Question

Информатика

Всеслава

13 сентября, 18:51

Ввести строку с клавиатуры ввести символ с клавиатуры используя оператора ввода задать некоторую строку содержашая 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.