|
#1
|
|||
|
|||
ХЕЛП!!!
Люди помогите плиз!-У кого нибудь есть исходники теста по физике?
ОООООООООООООООООООООчень надо!!!!!! |
#2
|
||||
|
||||
Какой вопрос, такой ответ (да простят меня модераторы):
Код:
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. |
#3
|
||||
|
||||
В догонку.
Данный тест очень просто адаптируется под другие дисциплины Но как это сделать я расскажу только за деньги |