Матричные, струйные и лазерные.
Ответ:
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
Учитывая, что в условии не обозначены границы N, придется воспользоваться возможностями PascalABC.Net
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var f: BigInteger := 1;
var s: BigInteger := 0;
var n := ReadInteger;
for var i := 1 to n do
begin
f:=1;
for var j := 1 to i do f *= j;
s := s + f;
end;
println('Сумма факториалов ', s);
end.
Тестовое решение
n=100
Сумма факториалов 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
Мёд-вкусный липкий ароматный густой
Program z1;
var x,y:integer;
begin
readln(x,y);
if x>y then writeln(x) else writeln (y);
end.