"...напечатает сначала 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.
Одной из первых форм письма, являлась настенная и наскальная живопись.
В этом случае древние люди использовали в качестве материала для письма уголь и в основном писали и рисовали на скалах.
Во времена развития Шумерской цивилизации, древние Шумеры писали на мокрых глиняных табличках при твердого предмета, в основном используя для этого кости животных или деревянные палочки.
В древнем Египте писали на папирусе при кисти из тростника, которой и наносили иероглифы. Помимо папируса, используя для этого деревянные дощечки и каменные здания.
abs(a)= 4.87
int(a)= 4
round(a)= 5