Помогите разобраться с задачей по информатике:укажите наивеличайшее трехзначное естественное
Помогите разобраться с задачей по информатике:
укажите наивеличайшее трехзначное натуральное число, при вводе которого эта программка напечатает поначалу 2, потом - 6
var x,a,b: longint;
begin
readln(x)
a : =0; b:=1;
while xgt;0 do begin
if x mod 2 gt;0 then
a:=a+1
else
b:=b+(x mod 5);
x:=x div 5;
end;
writeln(a); write(b);
end.
Разумею, что в пятиричной записи исходного числа подсчитываются четные числа - их 2, а также сумма нечетных остатков при дробленьи на 5 одинакова 5 (так как 6-1). В пятиричной записи начального числа обязаны участвовать числа 3 и 1. Но сколько разрядов в пятиричной записи, какие там четные числа и как они расставлены, я не могу осознать.
"...напечатает поначалу 2, позже - 6" -- это означает a=2 и b=6?
про пятеричные записи ничего не сообразил... :) И ИМХО к чему такие трудности? И для чего нам компьютер и программка? Я подправил начальную прогу чтоб она выдавала все числа подходящие по условию
var x,a,b: longint;
begin
for var i := 999 DownTo 100 do begin
a := 0;
b := 1;
x := i;
while xgt;0 do begin
if x mod 2 gt; 0 then a := a+1 else b := b+(x mod 5);
x := x div 5;
end;
if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);
end;
end.
прога проводит расчет для всх трехзначных чисел от 999 до 100
итого мы лицезреем что наибольшее подходящее число это 960
при необходимости прогу можно переработать чтоб она отыскала только наибольшее число.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.