Создать алгоритм для 2 ВАРИАНТА.КУМИР

А что, поиск отменили?

вот, например,

weproject.media/articles/detail/10-luchshih-startapov-v-kazahstane/

Объяснение:

TopKSK — это платформа для горожан, которые любят свой дом и хотят участвовать в его жизни. Сейчас на портале зарегистрировано 29 КСК. TopKSK позволяет подавать обращение, получать уведомления обо всех изменениях вашего КСК, оценить качество работы КСК, получить полезные советы по улучшению дома.

IoT-стартап, компания, которая разрабатывает светодиодные панели нового поколения и позволяет экономить до 80% электроэнергии, а также увеличить бесперебойную работу осветительных приборов в течение 10 лет. Diodey — это умное освещение, которое управляется через мобильное приложение.

IRC Almaty

Проект направлен на разработку приборов нормализации сна человека, основанных на бесконтактном воздействии электромагнитным полем сверхнизкой частоты и малой напряженности. Эти устройства для мониторинга сна позволяют следить за здоровьем и продуктивностью.

Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  kk : Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  kk := 0;
  for i1 := 1 to 9 do
    for i2 := 0 to 9 do
      for i3 := 0 to 9 do
        if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
          if ( Frac((i1+i2+i3)/7)=0 ) then
          begin
            Chislo := i1*100 + i2*10 + i3;
            if ( Frac(Chislo/7)=0 ) then
            begin
               Memo1.Lines.Append(inttostr(Chislo));
               inc(kk);
            end;
          end;
end;