Форум » Циклы и ветвления » [B7] Хочу проверить решение » Ответить

[B7] Хочу проверить решение

ИНФоМАТ: var x, L, M: integer; begin readln(x); L:=0; M:=0; while x > 0 do begin L:= L + 1; if M <(x mod 10) then begin M:= x mod 10; end; x:= x div 10; end; writeln(L); write(M); end. Укажите наименьшее х, для которого программа напечатает сначала 3, а потом 8. У меня ответ 800. Верно?

Ответов - 3

Поляков: ИНФоМАТ пишет: У меня ответ 800. Верно? Наберите программу и прогоните при всех трехзначных X, в цикле. P.S. Это неверно. Цифра 8 не обязательно стоит первой.

ИНФоМАТ: Набрала программу и получила ответ 108. Верно?

Поляков: ИНФоМАТ пишет: получила ответ 108. Верно? Верно. Но важно понять, почему так. :-)




полная версия страницы