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

Решить через паскаль 2 одноклеточная амеба каждые 3 часа делится на 2 клетки. определить, сколько амеб будет через 21 час

👇
Ответ:
FuzziBoy
FuzziBoy
04.06.2023
Через 21 час будет 42 амебы
4,5(73 оценок)
Открыть все ответы
Ответ:
gunelmustafaeva
gunelmustafaeva
04.06.2023

# подключаем библиотеку, чтобы использовать случайные числа

from random import randint  

n=int(input('Введите количество элементов массива : '))# вводим размерность массива

a=[0]*n # Создаём массив размерность n

for i in range (0, n):  #в цикле  

 a[i]=randint(1,30)   # заполняем каждый элемент случайными числави

print(a)  #печатаем исходный массив

a=sorted(a)# сортируем исходный массив

print(a) # печатаем отсортированный массив

x=int(input('Введите Х :')) #вводим Х

for i in range (n-1, 1, -1): # в цикле

 if x > a[i]:                # ищем положение, куда вставить X

   a[n-1]=a[n-1]+a[i]   # к максимальному элементу массива прибавляем #элемент который заменили

   a[i]=x    # а на его место вставляем Х

   break

print(a) # печатаем ответ


Заполнить массив случайными числами и отсортировать его ввести число x. python желательно с коммента
4,4(55 оценок)
Ответ:
destroyer0800
destroyer0800
04.06.2023
4)
Var    i,sum: integer;
Begin
i:=2;
    while (i<=22) do
         begin
        write(i,' ');
        i:=i+2
        end;
End.

5)
Var    i,sum: integer;
Begin
i:=5;
    while (i<=20) do
         begin
        sum:=sum+i;
        i:=i+1
        end;
  Writeln('Сумма чисел от 5 до 20 = ',sum)
End.

6)
Var    i,pr: integer;
Begin
i:=8;
pr:=1;
    while (i<=18) do
         begin
        pr:=pr*i;
        i:=i+2
        end;
  Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.

7)
Var    i: integer;
Begin
i:=10;
    while (i<=65) do
         begin
        Write(i,' ');
        i:=i+5
        end;
End.
4,5(30 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ