В ТурбоПаскале

[Hallucinogin]

1. Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.

2. Вычислить:
Y= Cos(1+Cos(2+...+Cos(39+Cos40)...))

3. Определить k- количество трехзначных натуральных чисел, сумма цифр которых равна n (1</= n </= 27).

[Hallucinogin]

Помогите пожалуйста))

[ROMA2PVT]

-III-http://www.cyberforum.ru/pascal/thread131934.html
-II-http://www.cyberforum.ru/pascal/thread81325.html
http://www.cyberforum.ru/pascal/thread21355.html
-I-Возьмёшь формулы и всё пучком будет.http://programmersforum.ru/showthread.php?t=20684

[Terran]

1.

Program Project1;
Var
H,S: Integer;
Begin
ReadLn(H);
WriteLn('S bok = ',H*H);
WriteLn('V kyba = ',(H*H)*H);
ReadLn;
End.

[dekameron]

А что именно не получается?
Покажи что сделал, и с чем надо помочь?

[ROMA2PVT]

Покажи что сделал, и с чем надо помочь?

а совсем надо помочь.Как обычно.

[dekameron]

PROGRAM a_001;
USES Crt;
VAR
	i:integer;
	res:real;
	
BEGIN
	clrscr;
	res:=COS(40);
	FOR i:=39 DOWNTO 1 DO
		res:=COS(i+res);
	writeln('Result: ',res:5:5);
	repeat read until keypressed;
END.

PROGRAM a_001;
USES Crt;
VAR
	i,a,b,c,res,n:integer;
BEGIN
	clrscr;
	write('n=');
	readln(n);
	n:=abs(n);
	if (n>27) OR (n=0)
	then writeln ('error')
	else
		begin
			for i:=100 to 999 do
				begin
					a:=i div 100;
					b:=i div 10 mod 10;
					c:=i mod 10;
					if a+b+c=n
					then res:=res+1;
				end;
			writeln('Result: ',res);
		end;
	repeat read until keypressed;
END.

[talismanv90]

1.лыжные гонки проводятся двумя группами по 10 человек. Результаты соревнований представлены списками участников и их результатов по каждой группе.Предварительное подведение итогов проводится по каждой группе, результатом его являются списки участников по группам в порядке занятых ими мест. Необходимо получить общий список, в котором участники расположены в порядке. соответствующем показанным результатам.
2.составить результирующую таблицу соевнования биатлонистов, в котором участвуют 10 спортсменов. В качестве исходной информации заданы-время прохождения каждого этапа, число промахов в стрельбе.

[Hallucinogin]

Спасибо вам большое)))