Написать программу решения квадратного уравнения, вычисления произведений: а) a*(a+1)*(a+2)**(a+n-1); б) 2*4*6**(2*n).

cat0000000 cat0000000    2   27.05.2019 04:00    4

Ответы
enotzdrt enotzdrt  23.06.2020 20:30
A)
var
 a,b,c,n: integer;
begin
 readln(a,n);
 b:=1;
c:=a*(a+1);
 repeat
  b:=b+1;
  c:=c*(a+b);
until b=n-1;
writeln(c);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика