Яка подія форми закриває вікно під час завершення виконання проектає​

А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  дрожжи, процент, расход, дней: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  дрожжи := 120;
  Вывод.Цепь("p: "); процент := Приём.Число();
  Вывод.Цепь("Tx: "); расход := Приём.Число();
  Вывод.Цепь("Tt: "); дней := Приём.Число();
  ОТ сч := 1 ДО дней ВЫП
    дрожжи := дрожжи + дрожжи * (процент / 100) - расход
  КОН;
  Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)

КОН Задание.

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -