решение во вложении, Вам нужна только первая страница
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
1) Ответ: 12
a 1 2 3
b 1 2 4
2) Ответ: i = 30
3) Ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.
3 (???) ) Ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02
4) Ответ: г)
Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.
Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.
5) Ответ: г)
Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.
Переведем 15 КБайт в биты:
15 * 1024 = 15360 байт
15360 * 8 = 122880 бит
Определим скорость передачи:
122880 / 60 = 2048 бит/c
Т.к. по заданию скорость увеличится на 2048 бит/c, видно, что она увеличится в два раза, следовательно файл будет передан в 2 раза быстрее, т.е. за 30 секунд.
Ответ: 30 секунд.