...
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.
Три стула по углам, и 2 у стенок
Const
s='вернисаж';
begin
Writeln(s[3]+copy(s,1,2)+Copy(s,4,2)+s[2]);
Writeln(Copy(s,6,3)+s[7]);
Writeln(s[4]+Copy(s,2,2)+s[1])
end.
<em><u>Результат выполнения программы:</u></em>
рвение
сажа
нерв
Интернет!!!!!!!!!!!!!!!!!!!!!!!!!
1. ноги - убрать.
2. пищи - убрать.
3. месяце - убрать.
4. ледяной - убрать.
5. мою - убрать.
6. оранжевыми - убрать.
7. и развалины - убрать.
8. военным - убрать.
9. холодное - убрать.
10. поведения - убрать.