Программа для решения задачи:
var s:string; i,k,n:integer;
begin
s:='acacabbababaaaabacbb';
k:=0;
n:=length(s);
for i:=1 to n div 2 do
if s[i]<>s[n+1-i] then k:=k+1;
writeln(' количество замен = ',k);
<span>end.
количество замен = 9
</span>
var a:integer;
begin
writeln('Days Of Week');
readln(a);
case a of
1: write('Monday');
2: write('Tuesday');
3: write('Wednesday');
4: write('Thursday');
5: write('Friday');
6: write('Saturday');
7: write('Sunday');
end;
end.
class Program
{
static void Main(string[] args)
{
Console.WriteLine(DateTime.Now.ToLongTimeString().ToString());
Console.WriteLine(DateTime.Now.ToShortTimeString().ToString());
Console.ReadLine();
}
}
Английский, испанский,французкий