Для тех кто знает язык "Паскаль"

[FuRiousSp]

ХЕЛП!!! помогите решить задачки на паскале плиз

1 задача:
Вычислить сумму квадратов первых n натуральных чисел
вот ответ для проверки -->> n=3 ; S=14

2 задача:
Вычислить сумму n слагаемых вида (i+1)/(i+2)
вот ответ для проверки -->> n+3 ; S=2,217

3 задача:
Даны действительное число a, натуральное число n. Вычислить: p=a(a-n)(a-2n)...(a-n"вквадрате")
вот ответ для проверки -->> n=3; a=10; p=280

4 задача:
Дано натуральное число N. Вычислить произведение первых N сомножителей:
p=2/3*4/5*6/7*...*2N/(2N+1)
вот ответ для проверки -->> n+3 p=0,4571

5 задача:
Дано натуральное число n. Вычислить: S=1*2+2*3*4+...+n*(n+1)*...*2n
вот ответ для проверки -->> n=3; s=386

6 задача:
Дано натуральное число n. Вычислить: S=1!+2!+3!+...+n! (n>1)
вот ответ для проверки -->> n=4; S=33
Мне просто нужно решение

[13th_unknown]

Варианты решений (могут быть ошибки):

1)

var s,i,n: integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
readln;
end.

2)

var i,n: integer;
s: real;
begin
write('n=');
readln(n);
s:=0.0;
for i:=1 to n do
s:=s+(i+1)/(i+2);
write('s=',s);
readln;
end.

3)

var i,n,a,p: integer;
begin
write('a=');
readln(a);
write('n=');
readln(n);
p:=1;
for i:=0 to n do
p:=p*(a-n*i);
write('p=',p);
readln;
end.

4)

var i,n: integer;
p: real;
begin
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*((2*i)/(2*i+1));
write('p=',p);
readln;
end.

5)

var a,i,n,k,s: integer;
begin
write('n=');
readln(n);
s:=0;
a:=1;
for i:=1 to n do
begin
for k:=i to 2*i do
a:=a*k;
s:=s+a;
a:=1;
end;
write('s=',s);
readln;
end.

6)

var i,n,k,s: integer;
begin
write('n=');
readln(n);
s:=0;
k:=1;
for i:=1 to n do
begin
k:=k*i;
s:=s+k;
end;
write('s=',s);
readln;
end.

[zebra]

а паскаль .... мы на прошлом уроке снеговика рисовали =)

[FuRiousSp]

Варианты решений (могут быть ошибки):

1)

var s,i,n: integer;
begin
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
readln;
end.

2)

var i,n: integer;
s: real;
begin
write('n=');
readln(n);
s:=0.0;
for i:=1 to n do
s:=s+(i+1)/(i+2);
write('s=',s);
readln;
end.

3)

var i,n,a,p: integer;
begin
write('a=');
readln(a);
write('n=');
readln(n);
p:=1;
for i:=0 to n do
p:=p*(a-n*i);
write('p=',p);
readln;
end.

4)

var i,n: integer;
p: real;
begin
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*((2*i)/(2*i+1));
write('p=',p);
readln;
end.

5)

var a,i,n,k,s: integer;
begin
write('n=');
readln(n);
s:=0;
a:=1;
for i:=1 to n do
begin
for k:=i to 2*i do
a:=a*k;
s:=s+a;
a:=1;
end;
write('s=',s);
readln;
end.

6)

var i,n,k,s: integer;
begin
write('n=');
readln(n);
s:=0;
k:=1;
for i:=1 to n do
begin
k:=k*i;
s:=s+k;
end;
write('s=',s);
readln;
end.

О-о Спасибо большое 13th_unknown :dance2: оперативно :friends:

[Moonlight]

ну тут уж скорее математические сложности, чем сложности программирования :)

[Ammm]

ей, вы че делаете
не помогайте им. )))
такие легкие школьные задачки еще.
наверно 12анкноуну было приятно ответить на этот тему, вспомнить старое ))

[13th_unknown]

ей, вы че делаете
не помогайте им. )))
такие легкие школьные задачки еще.
наверно 12анкноуну было приятно ответить на этот тему, вспомнить старое ))

Вахахах, насмешил :jo:

[Midzu Maniac]

Когда я учился в школе, тоже такие задачки давали.
Почти ничего не помню.

[w819]

имхо нельзя решение в готовом виде давать на азы - пока голову не озадачат, литературу не почитают - фиг разберутся.

[FuRiousSp]

Эххх... что вы говорите :)

[-Divik-]

а паскаль .... мы на прошлом уроке снеговика рисовали =)

а на паскале тоже рисовать можно? Не знал, думал только на basic :)

[13th_unknown]

а на паскале тоже рисовать можно? Не знал, думал только на basic :)

А как удивишься, когда узнаешь, что даже на Си можно рисовать!

А как она удивиться когда узнает что "сайты" можно делать на блокноте =)

Вахаха, нно.

P.s: это он, а не она

[ak0z]

а на паскале тоже рисовать можно? Не знал, думал только на basic

=)

А как удивишься, когда узнаешь, что даже на Си можно рисовать!

А как она удивиться когда узнает что "сайты" можно делать на блокноте =)

[VanDamM]

хых, рисовать можно и на html :) и на php

[Ammm]

ахаха корки ))

[Delon]

и на PAINT!!! O_O

[-Divik-]

А как он удивиться когда узнает что "сайты" можно делать на блокноте =)

Достали. Я знаю что можно рисовать на HTML. PHP, Paint, Photoshop и т.д.. Ясное понятное дело что сайты пишут на HTML и PHP, набирать их можно в блокноте, в спецпроге и т.д..

Ну вообще не знал что ak0z не знает что такое HTML и PHP, а это почти тоже самое, что не знать что такое хорошо, и что такое плохо.

[jokerok]

а теперь покажу свои задачки :)

Кто решит тому пасибо :)

[Midzu Maniac]

а теперь покажу свои задачки :)

Кто решит тому пасибо :)

бугага я думал в ИМИ задачки потруднее будут =)

[jokerok]

бугага я думал в ИМИ задачки потруднее будут =)
не стал я все кидать

[LegeN]

хмм, точно такую же как задачу№1 в 10 классе решали О_О
щяс если вспомню, решу мб :D

з.ы. ты в ИМИ учишся? О_О я туда поступать хочу >:D это в каком курсе такие задачи дают?)

[13th_unknown]

это в каком курсе такие задачи дают?)

1-ый курс...

[jokerok]

тема строки если кто не помнит

[Весёлый Молочник]

Я такое давно в школе решал. В классе 9-10 вроде.
Обмельчали нынче студенты однако или повторение просто.

[стас_2]

никитич?