"...напечатает сначала 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.
сформировать представления о назначении и принципах построения локальных компьютерных сетей;
сформировать знания о составе и основах функционирования локальных компьютерных сетей;
2. Развивающие:
развить познавательные и творческие учащихся;
развить образное мышление;
развивать готовность учащихся к информационно-учебной деятельности, применять инструментальные средства и средства информационных технологий в любом предмете для реализации учебных целей и саморазвития.
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
при необходимости прогу можно переделать чтобы она находила только максимальное число.
1. Образовательные:
сформировать представления о назначении и принципах построения локальных компьютерных сетей;
сформировать знания о составе и основах функционирования локальных компьютерных сетей;
2. Развивающие:
развить познавательные и творческие учащихся;
развить образное мышление;
развивать готовность учащихся к информационно-учебной деятельности, применять инструментальные средства и средства информационных технологий в любом предмете для реализации учебных целей и саморазвития.
3. Воспитательные:
воспитывать трудолюбие, ответственность за результаты своего труда:
воспитывать культуру делового общения при совместной работе в группе;
воспитывать доброжелательность среди учащихся, нацеленность на результативность обучения.