Question

Ajutati-ma va rog sa-mi fac problema nr 22...
dau coroana

Answer 1

var n:integer;procedure t22(i:integer);beginif i<=n then         begin         write(3*i-1,' ');         t22(i+1);         end;end;
BEGINwrite('n='); readln(n);t22(1);readln;end.

Answer 2

var n:integer;procedure
t22(i:integer);beginif i<=n then
begin. write(3*i-1,' ');
t22(i+1); end;end;
BEGINwrite('n=');
readIn(n);t22(1);readIn;end.