ПОМОГИТЕ СРОЧНО!!! Ниже написана программа. Получив на вход число x, эта программа печатает два числа, a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 9. ПОЖАЛУЙСТА С РЕШЕНИЕМ!...

ПОМОГИТЕ СРОЧНО!!! Ниже написана программа. Получив на вход число x, эта программа печатает два числа, a и b. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 9. ПОЖАЛУЙСТА С РЕШЕНИЕМ! var x, a, b : integer; begin readln (x); a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 5); x := x div 5; end; writeln (a); write (b); end.
Гость
Ответ(ы) на вопрос:
Гость
//Я снова предстаю в ипостаси гуманитария, не желающего ничего считать //Сделаем так, чтобы код сам выдавал нам ответы var x,a,b,m:integer; begin for m:=1 to 10000 do //m- тот же x, сохранённый для цикла begin; x:=m; a := 0; b := 1; while x > 0 do begin a := a + 1; b := b * (x mod 5); x := x div 5; end; if (a=3) and (b=9) then writeln(m); //если программа должна вернуть подходящие нам значения, возвращаем x end; end. Вывод программы: 43 83 91 Ответ:91
Не нашли ответ?
Ответить на вопрос
Похожие вопросы