P:=0; a:=2; for i:=1 to 5 do begin a:=3*a+1; p:=p+a; end;

Витуся007 Витуся007    1   16.04.2021 14:16    2

Ответы
Елис13 Елис13  16.04.2021 14:20

Решение представлено во вложении.

Язык: Pascal

a = 607;p = 905.
P:=0; a:=2; for i:=1 to 5 do begin a:=3*a+1; p:=p+a; end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика