Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Написать программу вычисления выражения (3-х)(6-х)(9-х)....(21-х), где х-натуральное число.

Ответ оставил Гость

var x,y:integer;
begin
write(vvedite x:);
readln(x);
Y:=(3-x)*(6-x)*(9-x)*(12-x)*(15-x)*(18-x)*(21-x);
writeln(y);
end.