Софи с удивлением наблюдала за великаном. Всё-таки странный он какой-то! Как часто меняется у него настроение! То говорит, что у неё в голове одни сонные мухи, а то вдруг у него сердце кровью обливается при мысли, что миссис Клонкерс сажает их в погреб.
— Меня беспокоит, что мне придётся остаться у вас на всю жизнь. В приюте было совсем не сладко, но ведь когда-нибудь я бы его покинула. А вы как думаете?
— Всё из-за меня. Это я во всём виноват!
Ещё одна слеза скатилась по щеке БДВ и расплескалась по полу.
Напишите программу, которая будет определять, что расстроило БДВ на этот раз.
Формат ввода
Вводятся три строки. В первой слова разделены пробелами, во второй символами /\ и в третьей символами ***.
Формат вывода
Для каждого слова из первой строки выбрать без учета регистра:
из второй строки те слова, которые при сравнении идут раньше проверяемого слова и последняя буква которых есть в проверяемом слове;
из третьей строки слова, в которых не больше двух общих букв с проверяемым словом и длина которых меньше него.
Выводить в формате:
<Проверяемое слово>:
<слова из второй строки> с прописной буквы (остальные строчные) через !, окруженный пробелами
<слова из третьей строки>, записанные через первую букву проверяемого слова в нижнем регистре, окруженную пробелами
Если каких-то слов не оказалось, выводить пустую строку.
Ввод
Clonkers Torturer Queen
A/\huge/\tear/\that/\could/\have/\filled/\a/\bucket/\rolled/\down/\his/\cheek
splashed***to***the***floor***and***turned***into***a***large*** puddle
Вывод
Clonkers:
Cheek
to c the c and c into c a c puddle
Torturer:
Huge ! Tear ! That ! Have ! Bucket
to t the t floor t and t into t a t large t puddle
Queen:
Huge ! Have ! Down
to q the q and q into q a
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.