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

50 .напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 13. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 13. количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число - минимальное число, кратное 13. входные данные 3, 130, 25, 169. выходные данные 130. (чтобы её можно было запустить в паскаль) ​

👇
Ответ:
DanilNaumov
DanilNaumov
16.09.2021

Var i,c,count,min:integer;

Begin

Read (count);

Min:=30000;

For i:=1 to count do

Begin

Read(c);

If c < min and c mod 13 = 0 then

Min:= c;

End;

Write(min);

End.

4,6(56 оценок)
Ответ:
Stepancherk
Stepancherk
16.09.2021

#include <iostream>

using namespace std;

int main()

{

   int b,c,d,e,f,g;

   cin >>b;

   d=30001;

   int A[b];

   for ( int i=0;b>i;i++ )

   {

       cin >> A[i];

   }

       for ( int i=0;b>i;i++ )

   {

       if ( A[i]%13 ==0 )

       {

           if ( A[i]< d )

           {

               d=A[i];

           }

       }

   }

   cout << d;

}

4,7(7 оценок)
Открыть все ответы
Ответ:
MatveiKnyaz2005
MatveiKnyaz2005
16.09.2021
Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842)
const
 s='велосипедист';
var
 t:='кытунак';
 p:string;
begin
  // 1
  Writeln(LeftStr(s,9),', ',
    s[12]+s[2]+s[5]+s[12]+s[4],', ',
    s[4]+Copy(s,3,2)+s[1]+s[4]);
  // 2
  Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1);
  // 3
  Write('Было: ',t,', стало: ');
  t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о');
  Writeln(t);
  // 4
  Write('Коды символов слова ',t,': ');
  foreach c:char in t do Write(Ord(c),' ');
  Writeln;
  // 5
  Write('В слове ',t,' количество букв ');
  if Odd(t.Length) then Writeln('нечетное') else Writeln('четное')
end.

Результат выполнения программы:
велосипед, тесто, олово
Позиция буквы "д" в слове "велосипедист" равна 9
Было: кытунак, стало: котенок
Коды символов слова котенок: 234 238 242 229 237 238 234
В слове котенок количество букв нечетное
4,4(14 оценок)
Ответ:
Dementor112
Dementor112
16.09.2021

ответ:Платформа (фр. plate – жайпақ, forme — форма) — геологияда қозғалмалығы біршама аз, жазық немесе үстірт тәрізді бедерлі, екі жікқабатты құрылымдық қабаттан – іргетастан және шөгінді тыстан тұратын жер қыртысының кең ауқымды атырабы. Жер бетінде іргетастық көрініс беретін бөліктерді қалқандар дейді. Шөгінді тыспен көмкерілген тұстарын тақта деп атайды. Архей мен протерозойда қалыптасқан ежелгі платформа (Шығыс Еуропа, Сібір) және ігретасы палеозой мен мезозой тау жыныстарьшан құралған жас платформа (Батыс Сібір, Скиф, Тұран) деп ажыратылады; кристалды тақтатастардан, гнейстерден, эффузивті жыныстардан және тағы басқалар. күшті метаморфозданған архейлік жыныстардан құралған жер қабығының көлемді берік алабы.[1]

Ол тек эпейрогендік қозғалысқа ғана ұшырап, не жоғары көтеріліп, не төмен түсуі мүмкін. Төмен түскен жағдайда платформаның үстін горизонтальды теңіз шөгінділері жабады. Сонымен, метаморфозды жыныстар не жер бетінде, не ертеде шөгінді жыныстармен жабылған тереңдіктерде кездеседі. Сондықтан платформаға өзінің фундаменті мен оны жауып жатқан шөгінді жыныстар құрамдарының бір-біріне түгелдей ұқсамауы және шөгінді жыныстардың бұзылмай қабатталып жатуы тән. Мысалға Орыс платформасы мен Батыс Сібір ойпатын алуға болады. Қазақстанда оған Торғай даласы мен Ертіс бойы жатуы мүмкін.[2]

Объяснение:мине жауабы

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