нужна помощь паскаль

[novol]

Ребята нужна помощь с паскалем 5 задачек,я просто ниче в паскале не понимаю


1)задано натуральное n составить программу с помощью которой найдите произведение первых и сомножителй: 1*4*9*16*25*36*........

2)написать программу которая определяет максимальное число из введеной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена) для завершения ввода последовательности ввести ноль.

3)составить программу вычисляющую сумму 1/8-4/27+9/64-16/125+25/216-..............с точностью Е=10 в минус 3 степени

4) задана строка символов и букв составте программу с помощью которой замените каждую точку восклицательным знаком а заданную букву - пробелом


5) ученик хочет вычислить средний балл своего аттестата и сравнить его со средним баллом аттестата отца и матери составить программу с помощьюкоторой определите может ли ученик считать что он окончил школу не хуже родителей.

Пожалуйста народ это надо сделать очень срочно

[Tayfun]

1.Я так понял первых n сомножителей
Советую здесь использовать массив для произведения первых n сомножителей.

p:array[1..10000] of integer;

Он и будет состовлять наше произведение.
Затем в цикле

p[1]:=1;
for i:=1 to n do begin
for j:=1 to 10000 do if p[j]<>0 then p[j]:=p[j]*sqr(i);
for j:=1 to 10000-1 do begin
1:if p[j]>=10 then begin p[j]:=p[j]-10; p[j+1]:=p[j+1]+1; goto 1; end;
end;
end;

Теперь выводим найденное нами число:

for j:=10000 downto 1 do begin
if p[j]<>0 then b:=true;
if b=true then write(p[j]);
end;

Выше изложенный алгоритм будет работать примерно для n=50, точно сказать немогу

[Tayfun]

По настоятельным просьбам выкладываю весь код!

program zad1;
uses crt;
label 1;
var
p:array[1..10000] of integer;
n,i,j:integer;
b:boolean;
begin
clrscr;
writeln('VVEDITE n');
readln(n);
p[1]:=1;
for i:=1 to n do begin
for j:=1 to 10000 do if p[j]<>0 then p[j]:=p[j]*sqr(i);
for j:=1 to 10000 do begin
1:if p[j]>=10 then begin p[j]:=p[j]-10; p[j+1]:=p[j+1]+1; goto 1; end;
end;
end;
b:=false;
for j:=10000 downto 1 do begin
if p[j]<>0 then b:=true;
if b=true then write(p[j]);
end;

readkey;
end.

[Tayfun]

2.

program zad2;
uses crt;
var
i:integer;
ch,max_ch:real;
begin
clrscr;
i:=1;
writeln('VVEDITE ELLEMENT POSLEDOVATELYNOSTY #',i,' (0 DLYA OKONCHANIYA VVODA)');
readln(ch);
max_ch:=ch;
while ch<>0 do begin
i:=i+1;
writeln('VVEDITE ELLEMENT POSLEDOVATELYNOSTY #',i,' (0 DLYA OKONCHANIYA VVODA)');
readln(ch);
if max_ch<ch then max_ch:=ch;
end;
writeln('MAKSIMALNIY ELLEMENT POSLEDOVATELYNOSTY=',max_ch:1:4);
readkey;
end.

[Tayfun]

4.

program zad4;
uses crt;
var
c,i:integer;
bb,b:string[1];
ns,s:string;
begin
clrscr;
writeln('VVEDITE STROKU');
readln(s);
writeln('VVEDITE BUKVU');
readln(bb);
c:=length(s);
for i:=1 to c do begin
b:=copy(s,i,1);
if b='.' then ns:=ns+'!' else if b=bb then ns:=ns+' ' else ns:=ns+b;
end;
writeln('NOVOYA STROKA->');
writeln(ns);
readkey;
end.

[_Dmitry]

Пророчество сбывается: http://www.programmersforum.ru/showp...9&postcount=28
Халява прёт: http://www.programmersforum.ru/showp...4&postcount=25