"...напечатает сначала 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 x>0 do begin
if x mod 2 > 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.
1) Как построить дом?
1) Нужно приобрести материалы для стройки
2) Купить территорию, где строить
3) Заложить фундамент
4) Начать строить пол, потом стены, не забывать всё укреплять
5) поставить окна
6) сделать утепление
7) поставить двери, замки, сеентехнику, провести электричество
8) построить крышу
9) наклееть обои, и покрасить стены
10) поставить мебель
11) ГОТОВО!
2) Как покрасить крышу дома?
1) купить краску
2) развести краску
3) залесть на крышу
4) начать красить с дальнего угла крыши от лестницы
5) когда докрасишь, дать просохнуть
6) повторяешь шаги 4 и 5 пару раз
7) ГОТОВО!
3) Как заложить фундамент?
я не знаю
"...напечатает сначала 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 x>0 do begin
if x mod 2 > 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.