Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
C#
using System; using<span> System.Text;</span>
class Mean
{
public int main()
{
int len;
Console.Write("Введите диагональ матрицы: "); len=(int)Console.ReadLine();
int[,] matrix = new int[len,len];
Console.WriteLine("Среднее арифметическое: ", average(matrix));
}
public int average(int[] mas)
{
int ans=0;
for(int x = 0; x<mas.Length;x++)
{
ans+=mas[x];
}
return ans;
}
public int[] diagonal(int[,] mas)
{
int[] ans = new int[mas.GetLength(0)];
for(int x=0; x<ans.Length; x++)
{
ans[x]=mas[x,x];
}
return ans;
}
}
<span>оператор цикла с заданным числом повторений</span>
var x,a,b,c,d,e,s: integer;
begin
writeln ('Введите целое 5-значное число');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x div 100 mod 10;
d:=x div 10 mod 10;
e:=x mod 10;
s:=a+b+c+d+e;
writeln ('s=', s);
end.