В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Cornelia1313
Cornelia1313
12.12.2022 13:34 •  Информатика

Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить численность амеб через 3: 6:9:12:!5:18:21:24 часа

Название

Формулирование проблемы:

Описание

Обоснование проблемы:

Ввод

Вывод:

расписать на 7 этапов​

Показать ответ
Ответ:
ConyaMiMiMi
ConyaMiMiMi
17.11.2020 19:18

 

 

стр 21 № 27

1 картинка тёплый дождь и розовые облака

2 картинка тёплый дождь и жёлтые облака

3 картинка холодный дождь и синии облоко

 

стр 22 № 28

                                                          МНОЖЕСТВО:

прямоугольник - растений

круг - деревьев

квадрат - лиственные деревьев

овал - вечнозелёных деревьев

треугольник - кустарников

квадрат в круге - не лиственных деревьев

пересечение квадрата и овала - вечнозелёных и лиственых деревьев

объеденение квадрата и круга - вечно зелёных или лиственых деревьев

 

дуб в квадрат но не в овала

сирень в треугольник

лиственница  в круг

сосна в овал но не в квадрат

пальма в пересечение квадрата и овала

 ВЫСКАЗЫВАНИЕ:                                           деревья для которых высказывание истинно

 

Дерево не лиственное                                        Лиственница, сосна

Дерево лиственное и вечнозелёное                 Пальма

Дерево лиственное или вечнозелёное             Дуб , сосна, пльма

Дерево лиственное и не вечнозелёное            Дуб

Дерево не лиственное и не вечнозелёное       Лиственница

0,0(0 оценок)
Ответ:
gopnik66
gopnik66
07.01.2021 02:15

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := a * rez;

  Pow := rez;

end;

 

var

  a, b, n, i:integer;

  F:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('n = '); readln(n);

  F := 0;

  for i := 1 to n do

    F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));

  writeln('F = ', F);

end.

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота