Ниже записаны две рекурсивные функции (процедуры): F и G. Чему будет равно значение, вычисленное при выполнении вызова F(6)? Си Паскаль int F(int n) { if (n > 2) return F(n-1) + G(n-2); else return n; } void G(int n) { if (n > 2) return G(n-1) + F(n-2); else return n+1; } function F(n: integer): integer; begin if n > 2 then F := F(n-1) + G(n-2) else F := n; end; function G(n: integer): integer; begin if n > 2 then G := G(n-1) + F(n-2) else G := n+1; end;
function F() : integer;
var
k,i : integer;
begin
k := 0;
for i := 100 to 999 do
if (i mod 13 = 0) and (i mod 100 <> 3) then
k := k +1;
Result := k;
end;
begin
writeln (f());
end.
const
n = 30;
var
a : array [1..n] of integer;
i,b : integer;
r : boolean;
begin
readln (b);
i := 1;
r := false;
While (not r) and (i <= n) do
begin
if a[i] = b then
r := true;
i := i +1;
end;
if r then
writeln ('Есть')
else
writeln ('Нет');
end.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub ()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED