Ввести строку с клавиатуры ввести символ с клавиатуры - вопрос №68498 от HolyKaktys 19.12.2022 17:12

Question

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

HolyKaktys · Answer

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....