[naizek]

5 заданий осталось, уже мозг кипит. Надеюсь вы поможете!
1. Дано 4-х значное число N. Наити произведение всех его чисел.
2.Грузовой автомобиль выехал из одного города в другой, со скоростью V, через t часов в этом же направлениии выехал автомобиль со скоростью V2. Определить догонит ли автомобиль грузовик через T1 часов, после своего выезда.
3. Создать обучающую прогу. Для выбранного в RadioGroup устройства ПК вывести сообщение к какому оно относится типу и картинку с его изображением.
4.Организовать движение кораблика с права на лево.
5.Создать простейшую модель игры в кубик.Для каждого из двух игроков с помощью функц. (Random) определить каждое случайное число от 1 до 6 и на форму выводятся соответственные числа. При на жатии на кнопку выводится сообщение "выйгрыш" "проигрыш" или "ничья"

[Yurk@]

1.

Код:

var 
  N, i, proiz : integer;
begin
  proiz := 1;
  N := 1234; // для примера
  for i:=1 to Length(N) do 
    proiz := proiz * N[i];
  ShowMessage('Произведение = ' + IntToStr(proiz));
end;

2.

Код:

var
  V, V2, t, T1 : variant;
  S, S2 : variant; // растояния которые проедут каждый автомобиль
begin
  V := 54.9;
  V2 := 77.3;
  t := 1;
  T1 := 3;
  S := V * (t + T1);
  S2 := V2 * T1;
  if S2 >= S
  then
    ShowMessage('Догонит')
  else
    ShowMessage('Не догонит');
end;