1) Глобус-модель, яка уособлює земну кулю, карту землі і нашої рідної планети. 2) Частота - показує певний момент, коли ту чи іншу дію покращився, збільшилося в кількості, розмірах і так далі. 3) зображення показує етапи виверження вулкана і властивості. 4) Модель корабля, що показує в мініатюрі, як би виглядав корабель. 5) 3д модель церкви - модель, що показує як би виглядала Церква. 6) креслення деталі - принцип той же: показати, як би виглядала деталь, також за до цього креслення можна виконати цю деталь. (я трохи не зрозумів завдання, якщо я зробив неправильно-напиши, перероблю.)
"...напечатает сначала 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) Глобус-модель, яка уособлює земну кулю, карту землі і нашої рідної планети. 2) Частота - показує певний момент, коли ту чи іншу дію покращився, збільшилося в кількості, розмірах і так далі. 3) зображення показує етапи виверження вулкана і властивості. 4) Модель корабля, що показує в мініатюрі, як би виглядав корабель. 5) 3д модель церкви - модель, що показує як би виглядала Церква. 6) креслення деталі - принцип той же: показати, як би виглядала деталь, також за до цього креслення можна виконати цю деталь. (я трохи не зрозумів завдання, якщо я зробив неправильно-напиши, перероблю.)
Объяснение:
"...напечатает сначала 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.