Кто может перевести в visual basic? буду
program for35;
var
ak,ak1,ak2, ak3 : real;
n, i : integer;
begin
write('введите n: ');
readln(n);
writeln('значения функции: ');
writeln('a(1)=1');
writeln('a(2)=2');
writeln('a(3)=3');
ak1: =1;
ak2: =2;
ak3: =3;
for i: =4 to n do
begin
ak: =ak3+ak2-2*ak1;
writeln('a(',i,')=',ak);
ak1: =ak2;
ak2: =ak3;
ak3: =ak;
end;
end.

хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз хз

1. b=5

2. b=4

Объяснение:

1. Сокращаем программу:

1) 5+1+1 = 7

2) 176-1 = 175

Получаем программу 22, то есть умножение на b осталось.

Начинаем подбирать b начиная с b=2, если ответ не совпадёт с 175, то прибавляем 1 к b

3) 7*2*2 = 28 | Не совпадает

7*3*3 = 63 | Не совпадает

7*4*4 = 112 | Не совпадает

7*5*5 = 175 | Совпадает

ответ: b=5

2. Сокращаем программу:

1) 7+1+1 = 9

2) 145-1 = 144

Получаем программу 22, то есть умножение на b осталось.

Начинаем подбирать b начиная с b=2, если ответ не совпадёт с 144, то прибавляем 1 к b

3) 9*2*2 = 36 | Не совпадает

9*3*3 = 81 | Не совпадает

9*4*4 = 144 | Совпадает

ответ: b=4