Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
27 декабря 2022 10:57
1020
Одноклеточная амеба каждые 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
Остались вопросы?
Еще вопросы по категории Информатика
Сколько единиц в двоичной записи числа 8f (16) ПОМОГИТЕ ПОЖАЛУЙСТА...
3. Информационное сообщение объемом 10 Кб состоит из 10240 символов. Сколько символов содержит алфавит, при помощи которого было записано данное сообщ...
Что такое php...
Для числа 12 определите значение логического выражения (О или 1): не (число чётное) или не (число кратно З)....
Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'....