Нарисовать блок схему к программе найдите символ в строке, который встречается наибольшее число раз. import java.util.arrays; public class l4a { public static void main(string[] args) { string s = "my$ mother! $ is tall$$.."; char[] arr = s.tochararray(); arrays.sort(arr); int count = 1; int
max = 0; char c = 0; for (int i = 1; i < arr.length; i++) { if (arr[i] == arr[i - 1]) { count++; if (count > max) { c = arr[i]; max = count; } } else { count = 1; } } if (max > 1) system.out.println("символ " + c + " повторяется " + max + " раз."); } }
/// PascalABC.Net 3.4.2, 2053(11.05.19)
var
a, n: longint;
text: textfile;
function myMod(num, power, divider: longint): longint;
var
rest, i: longint;
begin
rest:=1;
divider := abs(divider);
for i := 1 to power do
begin
rest := rest * num;
rest := rest mod divider;
end;
myMod := rest;
end;
begin
assign(text, 'input.txt');
{rewrite(text);
writeln(text, 109);
close(text);}
reset(text);
read(text, a);
writeln('a=', a);
close(text);
n := 1;
repeat
n := n + 1;
until MyMod(n, n, a) = 0;
assign(text, 'output.txt');
rewrite(text);
writeln(text, n);
close(text);
{reset(text);
read(text, n);
writeln('n=', n);
close(text);}
end.
var
a: array [1..10] of integer; //Массив из 10 целых элементов
max, i: integer; //max - максимальный элемент
begin
max:= 0; {Присваиваем max минимальное значение, которое он может принять}
write('Исходный массив: '); {Заполняем исходный массив, печатаем его и находим максимальный элемент}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max); //Печатаем исходный элемент
end.
Если все правильно, отметь решение как лучшее)
Нажми, чтобы рассказать другим, насколько ответ полезен
Подробнее - на -