Требовалось написать программу при выполнении которой с клавиатуры считывается натуральное число n, не превосходящее 10^9 и выводится максимальная цифра этого числа. var n: longint; digit, maxdigit: integer; begin readln(n); maxdigit : = 10; while n > 10 do begin digit : = n mod 10; if digit > maxdigit then maxdigit : = digit; n : = n div 10; end; writeln(digit); end. последовательно выполните следующее. 1. напишите что выведет это программа при вводе числа 321. 2. найдите все ошибки в этой программе (их может быть одна или несколько для каждой ошибки: 1) выпишите строку, в которой сделана ошибка; 2) укажите, как исправить ошибку, - правильный вариант строки.
Ответы
1. B4
4. B31
5. B10
Объяснение:
В ячейку В2 записана формула в которой находится смешанная ссылка на ячейку (A$1) .
Знак $ указывает, что стоящий после неё символ не изменяется при копировании. В данном случае закреплён номер строки ($1).
Остальная часть ссылки (буква столбца) будет изменяться при копировании вправо или влево.
Следовательно при копировании данной ссылки в тот же столбец (В) она изменяться не будет.
При копировании в любой другой столбец (кроме А, в нем будет просто ошибка) она изменит букву столбца.
ответ:Это арифметическая последовательность, поскольку ее члены различаются на одинаковое значение. В данном случае, прибавление
4
к предыдущему члену последовательности дает следующий член. Другими словами,
a
n
=
a
1
+
d
(
n
−
1
)
.
Арифметическая последовательность:
d
=
4
Это формула арифметической последовательности.
a
n
=
a
1
+
d
(
n
−
1
)
Подставим значения
a
1
=
3
и
d
=
4
.
a
n
=
3
+
(
4
)
(
n
−
1
)
Упростим каждый член.
Нажмите, чтобы увидеть больше шагов...
a
n
=
3
+
4
n
−
4
Вычтем
4
из
3
.
a
n
=
4
n
−
1
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько чисел в римской системе счисления можно записать, используя три спички?
Есть директор а у директора есть брат сергей ау серегея нету брата. как такое може быть?
Запишите алгоритм наливания воды в стакан двумя
2)
var
N: longint;
digit, maxdigit: integer;
begin
readln(N);
maxdigit := 10; // нужно присваивать 0
while N > 10 do // нужно написать N > 0
begin
digit := N mod 10;
if digit > maxdigit then
maxdigit := digit;
N := N div 10;
end;
writeln(digit); // нужно вывести maxdigit
end.
Верный код
var
N: longint;
digit, maxdigit: integer;
begin
readln(N);
maxdigit := 0;
while N > 0 do
begin
digit := N mod 10;
if digit > maxdigit then
maxdigit := digit;
N := N div 10;
end;
writeln(maxdigit);
end.