< >

Найти произведение квадратов натуральных чисел от O до N в паскале

Ответы

Ответ дал: garfild214
0

Program pr;
uses crt;
Var i,p,n:integer;

Begin
Writeln('введите n');
readln(n);
p:=1;
for i:=1 to n do p:=p*(i*i);
Writeln('p=',p);
readln;
end.

Похожие вопросы
Беларуская мова
2 года назад
складите и запишыце 2-3 сказа з аднакаранёвыми словами чытаць працавать вучыть
Русский язык
2 года назад
Найди и выпиши в один столбик родственные слова, а в другой - словоизменения. Выдели корень и окончания. На ветвях заснули птицы, Звёзды в небе не горят. Притаился у границы Пограничников отряд.
География
7 лет назад
Почему африканцы бедные?
Алгебра
7 лет назад
Найдите значение алгебраического выражения: (7x-y)(x+5y) при x=2,y=-3
Алгебра
10 лет назад
Найдите значение а и b ,при которых решением системы уравнений является пара х=1,y=1:3х+аy=5,   7х-by=6.
Алгебра
10 лет назад
Дана функция y = 4cos x +1. Найдите её область определения, множество значений, и все значения х, при которых у = – 3.
Алгебра
10 лет назад
Расстояние между пристанями A и B равно 96 км. Из A в B по течению реки отправился плот, а через 1 час вслед за ним отправилась яхта, которая, прибыв в пункт B, тотчас повернула обратно и
Геометрия
10 лет назад
угол С=90 градусов угол В=60 градусов АВ=10. Найти ВС