a=2
b=8
цикл произошел два раза из-за a:=a+1
значит x равен от 100 до 9999(при прохождении получаются числа от 0,01 до 0,9999)
теперь остался b:
b в начале был равен и получил 8 при цикле. mod узнаёт остаток деления на 100 которое прошло 2 раза. посмотрим если выберем 9999
9999(остаток 99) -> 99,99(остаток 99+99). вывод: программа под буквой b вычислила сумма всех двузначных чисел. значит самое максимальное 800( 8 и 0) т.к. если выбрать больше 999 то 1000 это сумма 10 и 0 что не подходит. а нам надо самое максимальное.
Ответ:800
99/9=11 остаток 0
11/9=1 остаток 2
Собираем число с конца из остатков от деления, начиная с последнего результата, меньшего 9. 120
99₁₀=120₉
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 2 * x;
s := a;
i := 0;
repeat
i := i + 1;
a := a * 4 * x * x / (2 * i - 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', Sinh(2*x):15:5);
x := x + h;
until x >= xk;
end.
Print("Введите n:")
n = int(input())
m = 0
for i in range(1,n):
m = m+45
if i % 2 == 1:
m = m+5
else:
m = m+15
m = m+45
print('%(h)d:%(min)02d' % {"h":9 + m // 60, "min":m % 60})
Пример:
<span>Введите n: 5
13:25</span>