L - это 50. Соответсвенно число будет 54.
Function func32771914() As String
Dim i As Single, S As String
For i = 0.12 To 1.88 Step 0.12
S = S & Cos(i ^ 2) + 5 / i ^ 3 - 2 & ";"
Next
func32771914 = S
End Function
Excel VBA
//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
Var
n:integer;
begin
readln(n);
range(10,99).Where(x -> x mod n=0).Print(',');
end.
//"Школьный" вариант
Var
i,n:integer;
begin
readln(n);
for i:=10 to 99 do
if i mod n=0 then write(i,',');
end.
Пример ввода:
3
Пример вывода:
12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99
Var i, sum: integer;
for i:=a to b do
begin
sum:= sum + i*i;
writeln(sum);
end;
writeln();
writeln(sum);