решите паскаль. очен6ь срочно надо((

1) Написать программу которая по заданному натуральному значению n вычисляет результат выражения p=1*2+3*4+..+(2n-1)*2n
2) Написать программу, вычисляющую количество месяцев, на которое хватит N кг сена, если ежемесячно 10 голов скота потребляют 100 кг сена, и каждые два месяца происходит прирост скота на 20%. изначально имеется 10 голов

что значат .. (2 точки) в p=1*2+3*4+..+(2n-1)*2n?

Добавлено через 02:11 сек.
1)

PROGRAM nn;
VAR
p, n: integer;
BEGIN
read (n);
p:=1*2+3*4+(2*n-1)*2*n;
write (p);
END. 

Добавлено через 07:06 сек.
вот скрин с аутпутом http://upwap.ru/1177349 Посчитал верно

2. FDesign, это ряд.
.. - это и так далее.

я не знаю. да наверно ряд

delet

1, какой класс это интересно?

PROGRAM nn; 
VAR 
p, i, n: integer; 
BEGIN 
readln(n); 
for i:=1 to 2*n-1 do
begin
p:=p+i*(i+1);
i:=i+1;
end; 
writeln(p); 
END. 

Седьмой класс максимум

С записью в файл

{
Написать программу, вычисляющую количество месяцев, 
на которое хватит N кг сена, если ежемесячно 10 голов скота 
потребляют 100 кг сена, и каждые два месяца происходит прирост скота 
на 20%. изначально имеется 10 голов
}
program mes;
var n,res,noom:integer;
kg:real;
out:text;
begin
readln(n);

noom:=-1;
kg:=100;
while n>kg do begin
noom:=noom+1;
if (noom mod 2 = 0) and not (noom=0) then kg:=round(kg+kg*0.2);
if n>kg then n:=round(n-kg);
end;

assign(out,'outp.txt');
rewrite(out);
writeln(out,noom+1);
close(out);
end.
{ by finall2 }

Без записи в файл

{
Написать программу, вычисляющую количество месяцев, 
на которое хватит N кг сена, если ежемесячно 10 голов скота 
потребляют 100 кг сена, и каждые два месяца происходит прирост скота 
на 20%. изначально имеется 10 голов
}
program mes;
var n,res,noom:integer;
kg:real;
begin
readln(n);

noom:=-1;
kg:=100;
while n>kg do begin
noom:=noom+1;
if (noom mod 2 = 0) and not (noom=0) then kg:=round(kg+kg*0.2);
if n>kg then n:=round(n-kg);
end;
writeln(noom+1);
end.
{ by finall2 }

var potreb,skot,n:real; i,month:integer;
begin
i:=0;
skot:=10;
month:=0;
ReadLn(n);
Repeat
if(i=2)then
begin
skot:=skot*1.2;
i:=0
end;
potreb:=skot*10;
n:=n-potreb;
month:=month+1;
i:=i+1;

Until
n<=1;
writeln('Хватит на ',month,' месяца/месяцев');
end.

Мне лично так хватило решить
С записью в файл уж сам справишься, если все таки требуется запись в файл

P.S. Называется сколько кодеров столько и вариантов решения

Седьмой класс максимум

Мы паскаль только в 10м проходить начали.