Приведу часть программы.
n-любое число
...........................
a: array[1..n] of integer;
................................
K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.
CPU ---> Процессор
RAM ---> Оперативная память
ROM ---> Постоянная память
HDD ---> Жёсткий диск
Sound Card ---> Звуковая карта
Video Card ---> Видео карта
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString('Введите строку символов:').ToCharArray;
// Теперь у нас есть исходный массив символов, а для работы нужна строка!
a:=a.JoinIntoString('').RegexReplace('\([^\(\)]+\)','').ToArray;
a.Println
end.
<u>Пример</u>
Введите строку символов: 2+3(4+1)+2(x-1)(x-2)+a
2+3+2+a
750 б = 0,0009765625
13 гб = 13631488 кб