var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало sum := 0; i := 1; s := 5; //первое слогаемое = 5 repeat sum := sum + s; //к сумме прибавляем слагаемое s := s + 4; //увеличиваем слогаемое i := i + 1; //увеличиваем кол-во слогаемых until (sum = 324); //выход когда сумма равна 324 writeln ('Слогаемых: '); // выводим кол-во слогаемых write (i); end. //конец
Всего - 6,5 часов Ожидание 2 часа, осталось 4,5 часов Активен 1 заражённый 1 шаг: Послано на 15, заражено 15*0.2+1=4(3 в ожидании на 2 часа), осталось 3,5 часов 2 шаг Послано на 15, заражено 15*0.2+4=7(3 в ожидании на 1 час, 3 в ожидании на 2 часа), осталось 2,5 часов Активны 4 заражённых 3 шаг Послано на 15*4=60, заражено 60*0.2+7=19(12 в ожидании на 2 часа, 3 в ожидании на 1 час), осталось 1,5 часов Активны 7 заражённых 4 шаг Послано на 15*7=105, заражено 105*0.2+19=40, осталось 0.5 часов За пол часа рассылок не произойдёт. ответ: 40
1) 5 9 13 17 21 25 29 33 37 41 45 49
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
repeat
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
until (sum = 324); //выход когда сумма равна 324
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец