Решение представлено во вложении.
Язык: Pascal
Поделитесь своими знаниями, ответьте на вопрос:
P:=0; a:=2; for i:=1 to 5 do begin a:=3*a+1; p:=p+a; end;
Решение представлено во вложении.
Язык: Pascal
a = 607;p = 905.