[АЙС!]

Люди помогите плиз!-У кого нибудь есть исходники теста по физике?
ОООООООООООООООООООООчень надо!!!!!!

[Aristarh Dark]

Какой вопрос, такой ответ (да простят меня модераторы):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

program Project1; {$APPTYPE CONSOLE} uses   SysUtils; var   a:integer; begin   WriteLn('Мегатест по физике!!!!!');   WriteLn;   WriteLn;   WriteLn('Ускорение свободного падения на Земле равно:');   WriteLn('1. 9,8 кг');   WriteLn('2. 9,8 м.кв.');   WriteLn('2. 9,8 км/с');   WriteLn('4. 9,8 м/с.кв.');   WriteLn('5. 9,8 литров');   ReadLn(a);   if a=4 then     WriteLn('Ай, молодца!!!')   else     WriteLn('Убей сибя ап стену!!!');   ReadLn; end.

[Aristarh Dark]

В догонку.
Данный тест очень просто адаптируется под другие дисциплины
Но как это сделать я расскажу только за деньги