Ввести строку с клавиатуры ввести символ с клавиатуры используя оператора ввода задать некоторую строку содержашая 15-25 символов определить длину строки вывести на экран сам символ и позицую в каторой он найден (также надо
задать любое четверостишие это 5)
albina227
2
03.03.2019 03:30
3
Другие вопросы по теме Информатика
aabeldinova
27.07.2019 09:20
Kamila281637
07.12.2021 19:39
Умникзаумник1
07.12.2021 19:38
hdhdhhxhxu
11.04.2020 21:41
avraval2009
11.04.2020 21:41
egoraga142
24.01.2021 16:44
M18voronenko
24.01.2021 16:46
gfyyfyftd
24.01.2021 16:46
Популярные вопросы
- Решить хотя бы одно из этих . заранее )...
3 - 5безсполучникових речень з повісті григорій федорович квітка маруся...
2 - Нада! почему у сказки тёплый хлеб такой заголовок? почему паустовский...
3 - Сделать предложение to help a lot a house в спец вопрос во временах...
3 - Вчем никита видит что то необычноеандрей платонович рассказ никита...
2 - Написать сочинение образ емельяна пугачёва...
1 - 20 ballov стр.67, 69, 74 слова диктант...
1 - Почему при сталине был репрессирован тухачевского...
1 - на дом далирешать сам. р. н22 решать 1 вар зад 1, 2 3сам. р. н 23...
1 - Написать письмо петру i от ученика, включающее в себя оценку его...
2
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.