Задание № 7512

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 109, и выводится максимальная цифра этого числа. Программист торопился и написал программу неправильно. (Ниже для Вашего удобства программа представлена на четырёх языках программирования.)

Бейсик

DIM N AS LONG 
INPUT N 
max digit = 0 
WHILE N > 0
	digit = N \ 10 
	IF digit > max digit THEN 
		max digit = digit 
	END IF 
	N = N \ 10 
WEND
PRINT digit 
END

Паскаль

var N: longint;
иdigit, max digit: integer; 
begin
	readln(N); 
	max digit := 0; 
	while N > 0 do 
	begin
		digit := N div 10; 
		if digit > max digit then 
			max digit := digit;
		N := N div 10; end;
	writeln(digit); 
end.

Си

#include <stdio.h> 
int main()
{
	long int N; 
	int digit, max digit; 
	scant("%ld", &N); 
	max digit = 0; 
	while (N > 0)
	{
		digit = N / 10; 
		if (digit > max digit) 
			max digit = digit;
		N = N / 10;
	}
	printf("%dM, digit);
}

Алгоритмический язык

алг
нач
	цел N, digit, max digit 
	ввод N
	max digit := 0 
	нц пока N > 0
		digit := div(N, 10) 
		если digit > max digit то 
			max digit := digit 
		все
		N := div(N, 10)
	кц
	вывод digit
кон

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 673.

2. Найдите все ошибки в этой программе (их может быть одна или несколько). Для каждой ошибки:

1) выпишите строку, в которой сделана ошибка;

2) укажите, как исправить ошибку, — приведите правильный вариант строки.

Обратите внимание, что требуется найти ошибки в имеющейся программе, а не написать свою, возможно, использующую другой алгоритм решения. Исправление ошибки должно затрагивать только строку, в которой находится ошибка.


Решать другие задания по теме: Поиск и ис­прав­ле­ние ошибок в программе

Показать ответ
Комментарий:

Содержание верного ответа

Решение использует запись программы на Паскале. Допускается использование программы на трёх других языках программирования.

1. Программа выведет число 0.

2. Первая ошибка. В строке внутри цикла

digit := N div 10;

вместо операции div должна использоваться операция mod.

Возможный вариант исправления:

digit := N mod 10;

3. Вторая ошибка.

Неверный вывод значения digit вместо max digit в строке writeln(digit);

Возможное исправление

writeln(max digit);
Ответ:

Нашли ошибку в задании? Выделите фрагмент и нажмите Ctrl + Enter.