Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
27 декабря 2022 10:57
867
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить сколько будет амеб через 3,6,9,12, .... 24 часа (pascal)
1
ответ
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.
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.
0
·
Хороший ответ
29 декабря 2022 10:57
Остались вопросы?
Еще вопросы по категории Информатика
Дайте определение системы счисления. Назовите и охарактеризуйте свойства системы счисления. На 1 часть ответила, а вот насчет свойств систем счисления...
Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 p:=1; i:=1; while i<=5 do begin p:=p*i; i:=i+1; end; p:=1; i:=1; while i<=...
30 БАЛЛОВ ТОМУ КТО РЕШИТ!!! !!!Задача на c++ !!! Дана строка. Удалите из нее все символы, чьи индексы делятся на 3....
614000 бітів в байтах, кілобайтах, мегабайтах 524288 байтів в бітах, кілобайтах, мегабайтах 256 кілобайт в бітах, байтах, мегабайтах 4 мегабайта в б...
Напишите программу на языке паскаль, которая выводит на экран таблицу степеней двойки(от нулевой до десятой). Рекомендуемый вид экрана после выполнени...
Все предметы