Кто может перевести в 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.

viamell    1   26.10.2019 12:22    0