?>
Софи с удивлением наблюдала за великаном. Всё-таки странный он какой-то! Как часто меняется у него настроение! То говорит, что у неё в голове одни сонные мухи, а то вдруг у него сердце кровью обливается при мысли, что миссис Клонкерс сажает их в погреб. — Меня беспокоит, что мне придётся остаться у вас на всю жизнь. В приюте было совсем не сладко, но ведь когда-нибудь я бы его покинула. А вы как думаете? — Всё из-за меня. Это я во всём виноват! Ещё одна слеза скатилась по щеке БДВ и расплескалась по полу. Напишите программу, которая будет определять, что расстроило БДВ на этот раз. Формат ввода Вводятся три строки. В первой слова разделены пробелами, во второй символами /\ и в третьей символами ***. Формат вывода Для каждого слова из первой строки выбрать без учета регистра: из второй строки те слова, которые при сравнении идут раньше проверяемого слова и последняя буква которых есть в проверяемом слове; из третьей строки слова, в которых не больше двух общих букв с проверяемым словом и длина которых меньше него. Выводить в формате: <Проверяемое слово>: <слова из второй строки> с прописной буквы (остальные строчные) через !, окруженный пробелами <слова из третьей строки>, записанные через первую букву проверяемого слова в нижнем регистре, окруженную пробелами Если каких-то слов не оказалось, выводить пустую строку. Ввод 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.