Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Листик43364
13.11.2020 13:14 •
Информатика
Нужно ввести на паскале вот такую : одноклеточная амёба каждые 3 часа делится на две клетки. сколько амёб будет через 12 часов. использовать циклы. заранее .
Показать ответ
Ответ:
КотейкаНастасья
07.07.2020 09:49
Var x,i:integer;
begin
x:=1;
i:=3;
while(i<12) do
begin
if i mod 3=0 then x:=2*x;
i:=i+1;
end;
writeln(x," амёб будет через 12 часов");
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
annakivilyova
19.08.2020 19:29
Существует ли треугольник у которого длины сторон 12^8 , 122^3 , 11011^2...
whcxjsg
19.08.2020 19:29
Добрый вечер ! если из первой корзины убрать 38 орехов , то в ней останется столько орехов сколько их во второй корзине. а если добавить 54 ореха то станет столько сколько в...
ulozerova
29.04.2021 16:14
Посмотри что получится если выполнить команды для чисел 5 и 20 запиши команды алгоритма и выполнить команды для чисел 9 и 25 запиши что получается...
Биіккесамға
11.03.2023 19:57
Составь алгоритм упорядочивания записей о предках пушкина а.с....
VarvaraErrorFell
02.12.2020 05:22
Нужно перевести число 3500 в двоичную, восьмеричную и шестнадцатиричную систему счисления....
Froxy
19.01.2020 17:23
Сообщение занимает 4592 байтов информации. сколько строк на странице , если символов в каждой строке 41 и использована кодировка юникод?...
Alexandra0903
19.01.2020 17:23
1).переведите число 68 из десятичной в двоичную. 2).переведите число 771 из десятичной в двоичную. 3).переведите число 110101 из двоичной в десятичную. 4).переведите число 1101001100...
jak15
01.03.2020 00:37
Где здесь ошибка? program p12; uses crt; var a,b,c: real; i,n: integer; function f(x: real): real; begin f: =sqr(sqr(x))+(sqr(x))*x-8*x(sqr(x))+5*x-3-cos(2*x); end; begin clrscr;...
zeIenkrist
21.04.2022 02:14
2019(10) = 2 ∙ 103 + 0 ∙ 102 + 1 ∙ 101 + 9 ∙ 100 = 2019(10) с остальными системами то же самое. вперёд! 1) 10110101101(2) = ? (10); 2) 1220010(3) = ? (10); 3) 103122(4) = ? (10);...
botagos210579
19.04.2022 14:38
Решение в паскале массив 5х10 заполнить случайными числами [0; 10]. найти строку, в которой сумма элементов максимальна и заменить в этой строке все числа на 0....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
x:=1;
i:=3;
while(i<12) do
begin
if i mod 3=0 then x:=2*x;
i:=i+1;
end;
writeln(x," амёб будет через 12 часов");
end.