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

Нужно составить блок-схему и код в паскале для её проверки : y=sin(x)+sin(x^2)+ ..+sin(x^n)

👇
Открыть все ответы
Ответ:
наргиз68
наргиз68
25.11.2020

ответ:

528

объяснение:

сначала найдём общее количество возможных слов. общее количество возможных слов равняется 6 · 5 · 4 · 3 · 2 · 1 = 720. теперь определим, сколько слов содержат сочетание уа. пусть слово начинается с уа, тогда количество вариантов равняется 1 · 1 · 4 · 3 · 2 · 1 = 24. пусть уа это вторая и третья буквы слова, тогда количество вариантов равняется 3 · 1 · 1   · 3 · 2 · 1 = 18. пусть уа это третья и четвёртая буквы слова, тогда количество вариантов равняется 3 · 3 · 1 · 1 · 2 · 1 = 18. в случае, когда уа это четвёртая и пятая буквы слова, количество вариантов равняется 3 · 3 · 2 · 1 · 1 · 1 = 18. в случае, когда уа это пятая и шестая буквы слова, количество вариантов равняется 3 · 3 · 2 · 1 · 1 · 1 = 18.

так же нужно и учитывать что может стоять ау вместо уа, а это ещё столько же.

таким образом, количество кодов, которые может составить руслан, равняется 720 − (24 + 18 + 18 + 18 + 18) * 2 = 720 - 192 = 528

4,6(55 оценок)
Ответ:
alinamironova21
alinamironova21
25.11.2020
Const
  dm:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var
  d,m,y,dFeb:integer;
begin
  Write('Введите дату в формате день месяц год: ');
  Read(d,m,y);
  if (m=2) and (d>=28) then begin
    if ((y mod 4=0) and (y mod 100 <> 0)) or
      ((y mod 100=0) and (y mod 400 =0)) then dFeb:=29
    else dFeb:=29;
    if d=dFeb then begin d:=1; Inc(m) end
    else Inc(d);
    if m=13 then begin m:=1; Inc(y) end
  end
  else begin
    Inc(d);
    if d>dm[m] then begin d:=1; Inc(m) end;
    if m=13 then begin m:=1; Inc(y) end
  end;
  Writeln('Следующая дата ',d,' ',m,' ',y)
end.
4,7(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ