<span><u>Человек стал хранить информацию на камне сначала в виде рисунков, затеем в виде знаков или символов какого-то алфавита . Чтобы получить необходимые сведения, человек вынужден был совершать большой путь, достаточно трудный и утомительный, к этим сооружениям.Наверное так!</u></span>
Import java.util.*;
import java.io.*;
import java.lang.*;
class Program {
public static void main(String[] args) {
Scanner Scan = new Scanner(System.in);
Random rand = new Random();
int A = rand.nextInt(151)+5;
if ((25 < A)&&(A < 100)) System.out.printf("%d ∈ (25,100)",A);
else System.out.printf("%d ∉ (25,100)",A);
}
}
Ответ:
2,0,334
Объяснение:
Задаем две пользовательские функции в VBA
Function newstr(str As String, n As Integer) As String
Dim i As Integer
For i = 1 To n
str = Replace(str, "a", "ab")
str = Replace(str, "bb", "c")
Next
newstr = str
End Function
Function chrcount(str1 As String, str2 As String) As Integer
Dim str() As String
str = Split(str1, str2)
chrcount = UBound(str, 1)
End Function
В ячейках рабочего листа вставляем формулы.
Для вычисления числа символов "a":
=chrcount(newstr("abab";333);"a")
Для вычисления числа символов "b":
=chrcount(newstr("abab";333);"b")
Для вычисления числа символов "c":
=chrcount(newstr("abab";333);"c")
Получаем следующий результат:
a,b,c
2,0,334
<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
Пн.A,B,C,D
вт.D,C,B,B,A
ср.A,A,A,C,B,D
чт.D,D,D,B,C,A
пт.A,B,A,A,D
A=9
B=6
C=4
D=7