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

Question

68

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

в избранное ссылка

Знаете ответ?

trader-a · Accepted Answer

97

trader-a

04 апреля 2023

var s,i,f: integer; Begin read (f); s: =1; repeat i: =i+3; s: =s*(i+f); until i>=27; writeln (s); End.

комментировать

в избранное ссылка отблагодарить