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

Впоследовательности чисел найти сумму нечетных, кратных 3. признак конца ввода ноль.(паскаль с циклом while) нужна

👇
Ответ:
Юля13002
Юля13002
13.05.2023
Program pr;
uses crt;

Var chislo, sum:integer;

Begin
Writeln('Введите число');
readln(chislo);
sum:=0;

While chislo<>0 do
  Begin
     if (chislo mod 2<>0) and (chislo mod 3=0) 
       then sum:=sum+chislo; 

      Writeln('Введите число');
      readln(chislo);
   end;

Writeln('Сумма = ', sum);

readln();
end.
4,7(57 оценок)
Открыть все ответы
Ответ:
Dementor112
Dementor112
13.05.2023

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

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

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

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