Задача в pascal abc net:

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

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

Question

Акинфий

25 августа, 21:42

+4

Ответы (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)