Страшные ощущения...
Когда секунды длятся часами и ты видишь, как горят 250 000...
На волоске.

179 750
+ 2000 распорка
+15 000 колеса
+ 3 700 Сигналка
+ 3 300 расходник на подготовку

Итого: 203750

program Tpu;
uses crt;
var n,a,b,c,d,e:integer;
begin
write('4ucJlo? ');
read(n);
e:=0;
if n>100 then write('mHoro') else
for a:=0 to n div 10 do
for b:=0 to (n-a*10) div 5 do
for c:=0 to (n-a*10-b*5) div 2 do
for d:=0 to (n-a*10-b*5+c*2) do
if 10*a+5*b+2*c+d=n then begin
writeln('10*',a,'+5*',b,'+2*',c,'+',d,'=',n,' ');e:=e+1;
end;
writeln(e);
readln;
end.

program cemb;
uses crt;
var k,n,b:integer;
a:real;
begin
clrscr;
write('Cymma BkJlada? ');
read(n);
write('%? ');
read(k);
if n>=1000000 then writeln('Tbl baHkpoT!') else
if k>=100 then writeln('Tbl Bce paBHo baHkpoT!') else
write(n*k/100+n);
a:=n*k/100+n;
if (a>=2*n) then write('1 rod') else
b:=1;
repeat
writeln(a+(a*k/100));
a:=(a+(a*k/100));
b:=b+1;
until a>=2*n;
writeln(b);
readln ;
end.

program TpeTbe_3adaHue;
uses crt;
var a,b,c,d,e:integer;
begin
clrscr;
write('a=');
readln(a);
write('b=');
readln(b) ;
write('c=') ;
readln(c) ;
write('d=') ;
readln(d) ;
write('e=') ;
readln(e) ;
if (a>10000) or (b>10000) or (c>10000) or (d>10000) or (e>10000) then writeln('nJloxou kupnu4uk :( ') else
if (d*e)>=(a*c) then writeln('DA!') else
if (d*e)>=(a*b) then writeln('DA!') else
if (d*e)>=(a*c) then writeln('DA!') else writeln('NO');
readln
end.

Леха:
program BTopoe_3adaHue;
uses crt;
var x:integer;
begin
clrscr;
write('x=');
readln(x);
if x<0 then write('sin(x)=-1') else
if x=0 then write('sin(x)=0') else
if x>0 then write('sin(x)=1');
readln;
end.

Коля:
program n9Toe_3adaHue;
uses crt;
var x,y:integer;
begin
clrscr;
writeln('x=');
readln(x);
writeln('y=');
readln(y);
if (x>0) and (y>0) then writeln('1') else
if (x<0) and (y>0) then writeln('2') else
if (x<0) and (y<0) then writeln('3') else
if (x>0) and (y<0) then writeln('4') else
if (x=0) then writeln('OCb y') else
if (y=0) then writeln('OCb x') else
writeln('Ha4aJlo KoopduHaT');
readln
end.

Света: \\пока под вопросом
program Bocbmoe_3adaHue;
uses crt;
var a:integer;
begin
clrscr;
writeln('rod?');
readln(a);
if a>10000 then writeln('AnokaJluncuc :( ') else
if (a mod 4=0) or (a mod 400=0) then writeln('YES') else writeln('NO');
readln
end.

code:
program NAME;

uses crt;

var a:integer;

begin

 clrscr;

  writeln('#####');

  readln(####);

end.



1 задание

program Bpem9;

uses crt;

var a:integer;

begin

 clrscr;

  writeln('Bpem9?');

  readln(a);

  write('npowJlo ',a div 3600, ' 4acoB ', (a div 60 mod 60),'muHyT ');

readln;

end.



2 задание

program m or n;

uses crt;

var m,n:integer;

begin

 clrscr;

  writeln('4ucJlo m?');

  readln(m);

  writeln('4ucJlo n?');

  readln(n);

  if (n mod m = 0) or (m mod n=0) then write (1)

 else writeln(random);

 readln;

end.



3 задание

program ypok;

uses crt;

var a,b:integer;

begin

 clrscr;

  writeln('DeHb?');

  readln(a);

  writeln('Ypok?');

  readln(b);

  writeln ((a-1)*6+b);

  readln

end.

45 000 кузов
1 000 транзитная страховка
1 000 дкп
8 000 номера
8 000 страховка
45 000 мотор
3 000 радиатор
22 000 обвес
3 000 коленвал
2 500 Масло
13 000 Краска + лак
2 000 NGK Свечи
1 000 Пыльники отбойники передних аммо

1 000Глушитель
1 000 Музыка
1 500 Зеркала
3 000 Кольца поршневые

BMW 31 12 9 069 035 Комплект резинометал. шарниров поп. рычага 1 871,91 02.мар
Jp Group 8,83E+12 Опора стойки амортизационной передняя 1 598,88 02.мар
Jp Group 8,83E+12 Опора стойки амортизационной передняя 1 598,88 02.мар
Lemforder 30113 01 Ремкомплект рейки рулевой 2 342,64 02.мар
Meyle 3 266 240 001 Картридж амортизатора газовый, переднего 2 2 621,74 02.мар
SWAG 20 79 0015 Сайлентблок подвески 2 694,9 02.мар
Optimal F8-5118 Втулка стабилизатора подвески 1 47,32 28.фев
Lemforder 10670 02 Стойка стабилизатора задняя 1 340,41 22.фев
Lemforder 10670 02 Стойка стабилизатора задняя 1 340,41 22.фев
Meyle 300 335 2101/HD Опора стойки амортизатора 2 525,24 22.фев
Pex 4.0076 Трос стояночного тормоза 1 308,05 22.фев
TRW GCH 1678 Трос стояночного тормоза 1 388,02 22.фев
TRW GS 8219 Колодки тормозные барабанные, комплект 1 593,39 22.фев
Febi 4911 Сайлентблок балки задней 2 717,56 20.янв
Febi 4911 Сайлентблок балки задней 2 717,56 20.янв
BMW 17 11 1 178 449 Клипса 1 233,48 03.дек
BMW 17 11 1 709 333 Кронштейн радиатора охлаждения двигателя 1 59,91 03.дек
Impergom 221226 Патрубок радиатора 1 400,32 25.ноя
Vernet TH5111.80J Термостат охлаждения 1 309,1 13.ноя
10709,72

Дата заказа Заказ Производитель Код Описание Кол-во
11.09.2011 ZVo1206684 Teknorot B-203 Опора шаровая 2 1000,00
26.09.2011 ZVo1573395 Goetze 22-23925-02/0 Прокладки двигателя комплект нижний 1 1222,00
26.09.2011 ZVo1573395 Reinz 02-27035-03 Комплект прокладок верхний 1 2472,00
26.09.2011 ZVo1573395 Reinz 14-32001-01 Болт головки цилиндра 1 552,00
22.10.2011 ZVo2275241 SKF VKPC 88607 Насос водяной 1 1666,00
25.10.2011 ZVo2344196 Contitech CT520 Ремень зубчатый ГРМ 1 359,00
25.10.2011 ZV 0266610 Ina 531 0001 10 Ролик ремня ГРМ 1 676,00
10947,00
Итого
179 750.
Ща еще полюбому что-нибудь вспомню.

http://www.e30club.ru/forum/index.php/topic,85502.msg1480125.html

Второй год подряд мы выигрываем их :)
А тем временем мы выходим в полуфинал :)
ФТП - МАТфак 0-2
ФТП - ИСТфак 2-1
ФТП - ГЕОфак 2-1
ФТП - ДЕФфак 2-0
ФТП - ФНК 2-0