Найти произведение квадратов натуральных чисел от O до N в ...
Ответ
Program pr;uses crt;Var i,p,n:integer;BeginWriteln('введите n');readln(n);p:=1;for i:=1 to n do p:=p*(i*i);Writeln('p=',p);readln;end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
