В них он высмеивал такие человеческие изъяны, как лицемерие, рабское поклонение, задабривание к начальству, грубость, необразованность, нахальство, отсутствие чувства собственного достоинства. Полицейский надзиратель Очумелов, главный герой рассказа А. П. Чехова «Хамелеон» — воплощение готовности унижаться перед более сильными и могущественными. И он, и городовой Хрюкин, и толпа обывателей изменяют свое поведение в зависимости от обстоятельств, защищая пострадавшего, когда думают, что собака кого-то из простых людей, и осуждают и высмеивают, узнав, что собачка «генеральская» . Полицейский надзиратель к тому же груб и необразован. Об этом свидетельствует его язык: «Почему здесь? Это ты зачем палец?. . Кто кричал? » Он занимается еще и вымогательством («За ним ступает рыжий городовой с решетом, доверху полным конфискованного крыжовника») . В рассказе «Толстый и тонкий» изображается случайная встреча на вокзале двух друзей детства. Никудышный чиновник, «тонкий» Порфирий, как только узнал, что его давний гимназический товарищ дослужился до тайного советника, начинает унижаться перед ним так, что того аж «затошнило» . Подобным чином ведут себя и члены семьи «тонкого» — жена и сын. Рассказы Антона Павловича Чехова очень коротки, но вместительны. Писатель умеет коротким эпизодом, метким словом изобразить широкую картину жизни. Причем, он сам не делает выводов, не вмешивается с комментариями, но читатели хорошо понимают, какой недостойный имеет вид человек-хамелеон, подхалим и лицемер.
Var n,d10,d:integer; begin Write('Введите двухзначное число: '); Readln(n); d10:=n div 10; d:=n mod 10; if ((d10=1) or (d=1)) then begin Write('В число входит цифра 1'); if ((d10=7) or (d=7)) then Writeln(' и цифра 7') else Writeln end else if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7') else Writeln('В число не входят цифры 1 и 7') end.
Примеры работы программы: Введите двухзначное число: 37 В число входит цифра 7
Введите двухзначное число: 15 В число входит цифра 1
Введите двухзначное число: 71 В число входит цифра 1 и цифра 7
Введите двухзначное число: 28 В число не входят цифры 1 и 7
i:=1;
while i<length(s) do
begin
if s(i)=',' then //возможно нужны []
insert(' ',s,i+1);
i:=i+1;
end;
write(s);
Проверить работу сейчас не могу, но вроде все норм))