Задача в pascal abc net:

Вычислить произведение с помощью цикла "До (repeat) "

(3+f) * (6+f) * (9+f) * ... * (27+f)

Question

Петяня

19 февраля, 08:22

+3

Ответы (1)

Знаете ответ на вопрос?

Ванюта · Answer 1

var s, i, f:integer;

Begin

read (f) ;

s:=1;

repeat

i:=i+3;

s:=s * (i+f) ;

until i>=27;

writeln (s) ;

End.

Задача в pascal abc net:Вычислить произведение с помощью цикла "До (repeat) "(3+f) * (6+f) * (9+f) * ... * (27+f)