Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
27 декабря 2022 10:57
935
Одноклеточная амеба каждые 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) константой 2) переменной 3) числом 4) величин...
Что такое сообщение? Примеры...
Отметьте верные утверждения. 1. Розу ветров можно построить с помощью лепестковой диаграммы. 2. У лепестковой диаграммы оси берут начало из нижнего л...
Ниже приведена программа, записанная на пяти языках программирования. Было проведено 9 запусков программы, при которых в качестве значений переменных...
СРОЧНО!!1!1 На улице строителей из 20 домов 6 деревянных 8 сделаны из кирпича,а оставшиеся из железобетонных плит.Чему равна неопределённость ответа н...