Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько будет амеб через 3,6,9,12, .... 24 часа (pascal)

1 ответ

Посмотреть ответы

Megamozg

2205

program fofgogjoj;
var
amebi:integer;
i:integer;
begin
amebi:=1;
for i:=1 to 24 do
begin
if i mod 3 = 0 then
begin
Write('Время ',i,' ');
amebi:=amebi*2;
Write('Амебы ',amebi);
writeln;
end;
end;
end.

Хороший ответ

29 декабря 2022 10:57

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

В чем преимущество компьютерных информационных моделей перед теоретическими? Вопрос из учебника информатики за 10 класс, автор Семакин, §13 "Компьютер... 1.    Дана программа program massiv; uses crt; const n=10; var s, i: integer; a: array [1..n] of integer; begin clr... У исполнителя омега две команды, которым присвоены номера 1 прибавь б 2 умножь на 2 (б-неизвестное натуральное число) выполняя первую из них, омега... Двухканальная (стерео) аудиозапись длительностью 2 минуты занимает в памяти 48 Мбайт, сжатие не производится. Сколько Мбайт памяти будет занимать ауди... Доступ к файлу table.xls, находящемуся на сервере home.ru, осущесвляется по протоколу ftp. В таблице фрагменты адреса файла закодированы буквами от А...