Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется количество гласных в исходной цепочке символов; если их четное число (либо гласных нет), то удаляется последний символ цепочки. Если нечетное – то в конец дописывается буква С. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите ( А – на Б, Б – на В, Я – на А). Получившаяся цепочка является результатом работы алгоритма. Например, если исходной цепочкой символов была цепочка КОТ, то результатом работы алгоритма будет цепочка ЛПУТ, а если исходной цепочкой символов была цепочка РЕКА, то результатом работы алгоритма будет цепочка СЁЛ. Дана цепочка символов КГУ. Какая цепочка символов получится, если к данной цепочке применить алгоритм дважды (то есть к данной цепочке применить алгоритм, а затем к результату его работы еще раз применить алгоритм)? Русский алфавит:
string chisla = "";
int max = 0;
Console.Write("Введите три числа через пробел: ");
chisla = Console.ReadLine();
int[] mas = new int[3];
for (int i = 0; i < mas.Length; i++)
{
mas[i] = Convert.ToInt32(chisla.Split(' ')[i]);
}
for (int i = 0; i < mas.Length; i++)
{
if (mas[i] > max)
{
max = mas[i];
}
}
Console.WriteLine();
Console.Write("Наибольшее число = {0}", max);
Console.ReadKey();
Объяснение:
Язык не указан, написано на C#.
var
n,i: integer;
B1: array [1..30] of real;
begin
writeln('Введите N: ');
read(n);
writeln('Введите ',n,' элементов: ');
for i:= 1 to n do
begin
readln(B1[i]);
if i mod 2 = 0 then B1[i]:=B1[i]/2;
if i mod 2 <> 0 then B1[i]:=n;
end;
writeln('Массив: ');
for i:= 1 to n do writeln(B1[i])
end.
2.
var
sum,c1,c2,i: integer;
T: array [1..7] of integer;
begin
writeln('Введите температуру за 7 дней: ');
for i:= 1 to 7 do
begin
readln(T[i]);
sum:=sum+T[i];
end;
writeln('Средняя температура: ',sum/7);
for i:= 1 to 7 do
begin
if T[i] > sum/7 then inc(c1);
if T[i] < sum/7 then inc(c2);
end;
writeln('Кол-во дней с температурой выше средней: ',c1,'; ниже средней: ',c2);
end.
3.
var
x,j,max,c,sum,i: integer;
BC: array [1..30] of integer;
begin
randomize;
writeln('Массив: ');
for i:= 1 to 30 do
begin
BC[i]:=random(51);
write(BC[i]:4);
if BC[i] mod 2 = 0 then inc(c);
if i mod 2 = 0 then sum:=sum+BC[i];
end;
writeln;
writeln('Кол-во четных элементов: ',c);
writeln('Сумма элементов с четными индексами: ',sum);
max:=BC[1];
for i:= 1 to 30 do
if BC[i] > max then max:=BC[i];
writeln('Результат: ');
for i:= 1 to 30 do
begin
if BC[i] = i then BC[i]:=max;
writeln(BC[i]);
end;
for i := 30 downto 2 do
for j := 2 to i do
if BC[j] > BC[j - 1] then
begin
x := BC[j];
BC[j] := BC[j - 1];
BC[j - 1] := x;
end;
writeln('По убыванию: ');
for i:= 1 to 30 do write(BC[i]:4);
end.