М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
annaorlova2
annaorlova2
28.12.2021 22:46 •  Информатика

На вашем компьютере установлена версия программы-архиватора. выберите команду для создания архива: выберите один ответ: a. compression to b. extract to c. insert to d. add to

👇
Ответ:
Ggogog
Ggogog
28.12.2021
Для создания архива нужно выбрать Add to archive
4,6(4 оценок)
Открыть все ответы
Ответ:
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;


Написать программу на языке паскаль нахождения всех трехзначных чисел, у которых все цифры различны,
4,4(42 оценок)
Ответ:
artem874
artem874
28.12.2021

Допустим, в языке есть встроенная функция

Min(a,b) которая определяет мин из двух значений. Тогда алгоритм выглядит так

 

х=Мin(a,b);

x=Min(x,c); 

 

А если нужно найти мин из N чисел, которые запрятаны в массив А(n), то так

 

x=999999999999999999999; // какое-то ОЧЕНЬ большое число

 

Для ц=1 по N цикл

       x = Min(x,A(ц));

КонецЦикла;

 

А что, если такой функции в языке нет, спросишь ты, тогда её нужно написать самому, например, так

 

Функция Min(a,b)

    Если a<b Тогда

          Возврат(а);

    Иначе

          Возврат(b);

     КонецЕсли;

КонецФункции

 

Вот и всЁ! Учитесь мыслить алгоритмически структурно, разбивая сложный алгоритм на ряд простых и понятных, и всё будет очень просто.

Успехов!

 

4,8(79 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ