Задача в pascal abc net:
Вычислить произведение с помощью цикла "До(repeat)"
(3+f)*(6+f)*(9+f)*...*(27+f)
Ответы на вопрос
Ответил archery
0
var s,i,f:integer;
Begin
read(f);
s:=1;
repeat
i:=i+3;
s:=s*(i+f);
until i>=27;
writeln(s);
End.
Новые вопросы
Русский язык,
6 лет назад
Геометрия,
10 лет назад
Математика,
10 лет назад
Алгебра,
10 лет назад
Математика,
10 лет назад