Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
27 декабря 2022 10:57
817
Одноклеточная амеба каждые 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
Остались вопросы?
Еще вопросы по категории Информатика
Описать систему хранения файлов на диске (срочно) (6 класс) (анон) Какие действия можно совершать с файлами...
Реферат на тему: история вычислительной техники кратко...
1. Текстовый редактор - программа, предназначенная для 1.создания, редактирования и форматирования текстовой информации; 2.работы с изображениями в...
Сколько трехзначных чисел можно записать с помощью цифр 2.4.6.8 при условии что в записи числы не должно быть одинаковых цифр...
Укажите величины, которые целесообразно представлять с помощью таблиц: рост учеников класса список учеников класса оценка ученика по физике имя...
Все предметы