10бит 20бит 2байта 1010байтов 1Кбайт
Var s: string;
i:integer;
begin
write('Введите текст: ');
readln (s);
for i:=1 to length(s) do
if s[i]='к' then write (i,' ');
<span>end.</span>
Ответ:
1. 20
2. 30
Объяснение:
Это рекурсивный алгоритм, новые значения берутся из значений полученных ранее
F(1)=2
F(2)=F(2-1) + 2*2=2+4=6
F(3)=F(3-1) + 2*3=6+6=12
F(4)=F(4-1) + 2*4=12+8=20
Аналогично со 2 алгоритмом
Var
n,k:integer;
Begin
Write('Введите n и k: ');
Readln(n,k);
if n = k then write(n) else
if n>k then write('N - max') else write('K - max');
End.