Тема: ХЕЛП!!!
Показать сообщение отдельно
  #2  
Старый 24.11.2006, 09:45
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Какой вопрос, такой ответ (да простят меня модераторы):
Код:
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.
Ответить с цитированием