Помогите сделать лабу
 

1.Найти площадь кольца, внутренний радиус которого равен 20, а внешний - введенному числу
r (r > 20).
2.1 Вводится X.
Получить значение Y, если Y=(X*X-X) * (4*X*X-3*X) * (9*X*X-5*X) *…* (400*X*X-39*X).
2.2 Получить значение Y=(X+1)*(X+4)*(X+7)*(X+10)* ... *(X+34) для X=X1, X2, X3, ... ,X15.

VAR
r:REAL;
BEGIN
Write('r= '); ReadLn(r);
WriteLn('S= ',Pi*(r*r-400));
ReadLn;
END.

VAR
X,Y:REAL;
i:INTEGER;
Write('X= '); ReadLn(X);
Y:=1;
FOR i:=1 TO 20 DO
Y:=Y*(SQR(X*i)-X*(2*i-1));
WriteLn('Y= ',Y);
ReadLn;
END.

VAR
X,Y:ARRAY[1..15] of REAL;
i,j:INTEGER;

BEGIN
FOR i:=1 TO 15 DO
BEGIN
Write('X[',i:2,']= '); ReadLn(X[i]);
Y[i]:=1;
END;
WriteLn;
FOR i:=1 TO 15 DO
BEGIN
FOR j:=1 TO 12 DO
Y[i]:=Y[i]*(X[i]+(i-1)*3+1);
Writeln('Y[',i:2,']= ',Y[i]);
END;
ReadLn;
END.

Честно скажу - не проверял. Но вроде всё так. Если что - напишите, поправим.

вот ещё задания а за эти спасибо , уже здал

во получил задание

А самостоятельно не хотите попробовать? Тем более, задания-то детсадовские. Учиться, между прочим, надо Вам, а не нам. А просто тупо перебрасывать задания на форум - не дело. Попытайтесь - вот ей-Богу, интересно будет!

Не удержался, сделал несколько заданий

1 задание
uses crt;
var x,y:real;
begin
clrscr;
write('введите х');read(x);
if x<=-5 then
y:=(x-2) * (x+4);

if (x>-5)and(x<=-2) then
y:=(-sqr(x));

if x>-2 then
y:=exp(x);
write(' y = ',y:5:2);
end.

3 задание
uses crt;
var x1,x2,y:real;r1,r2:byte;
begin
clrscr;
write('введите x1');read(x1);
write('введите x2');read(x2);
write('введите r1');read(r1);
write('введите r2');read(r2);
y:=ln(abs(cos(x1/r2)))*sqrt((x2-x1)/r1);
write(' y = ',y:5:2);
end.

плиз помогите написать лабу :)на языке паскаль!

Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.

Прежде всего - модераторское замечание: НЕ ДУБЛИРУЙТЕ СООБЩЕНИЯ! Дубликаты удалены. На первый раз прощается, ну а дальше...

Теперь - задачка.