Ввести строку с клавиатуры ввести символ с клавиатуры используя оператора ввода задать некоторую строку содержашая 15-25 символов определить длину строки вывести на экран сам символ и позицую в каторой он найден (также надо зад...
Ввести строку с клавиатуры ввести символ с клавиатуры используя оператора ввода задать некоторую строку содержашая 15-25 символов определить длину строки вывести на экран сам символ и позицую в каторой он найден (также надо задать любое четверостишие это оченка 5)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы