Регистрация
Войти
Стать экспертом Правила
Информатика

Требовалось написать программу при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10^9 и выводится максимальная цифра этого числа. Последовательно выполните следующее. 1. Напишите что выведет это программа при вводе числа 321.2. Найдите все ошибки в этой программе (их может быть одна или неКак узнать сколько). Для каждой ошибки:1) выпишите строку, в которой сделана ошибка;2) укажите, как исправить ошибку, - приведите правильный вариант строки. var N: longint;digit, maxdigit: integer;beginreadln(N);maxdigit := 10;while N > 10 dobegindigit := N mod 10;if digit > maxdigit thenmaxdigit := digit;N := N div 10;end;writeln(digit);end.

ОТВЕТЫ
1) 2
2)
maxdigit:=10 должен быть заменен на maxdigit:=0, так как программа считает с самого начала, что максимальной цифрой будет 10.
while N > 10 do должен быть заменен на while N > 0 do, так как мы не учитываем последнюю цифру.
writeln(digit); должен быть заменен на writeln(maxdigit);, так как мы выводим не результат, а последнюю рассматриваемую цифру
973
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам