Спорт денсаулық үшін өте пайдалы болып табылады. Спортпен шұғылдану арқылы біз мықты, шыдамды боламыз және денсаулығымызды нығайтамыз. Біздің мінезіміз шыңдалады, өйткені біз өзімізді жеңуге үйренеміз, сабақ кезінде ауырсынуға жол береміз, мұның бәрі біздің күшімізді дамытады. Көптеген спорт түрлері бар. Жазда біз велосипедпен жүре аламыз, футбол мен волейбол ойнай аламыз, өзен мен көлде жүзе аламыз балалар мен жасөспірімдер скейтборд пен скутермен жүре алады. Ал қыста сіз шаңғы жарыстарымен айналыса аласыз, бір-бірімен жарыса аласыз, конькимен жүгіре аласыз, мәнерлеп сырғанаумен, шаңғымен сырғанаумен айналыса аласыз. Қыста да, жазда да денсаулығыңызға қамқорлық жасау керек. Өйткені, дені сау адам ғана толықтай оқып, жұмыс істей алады, сондықтан бізге сүйікті спорт түрімен белсенді айналысып, физикалық тұрғыдан дамуымыз керек. Спорт-бәрінің басы!
"...напечатает сначала 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, потом - 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.