1.Откройте меню «Выполнить» с комбинации клавиш [Windows] + [R].
В диалоговом окне введите без кавычек слово «desktop» и нажмите [Enter]. Должен отобразиться каталог рабочего стола вашего профиля Windows.
Если в нем присутствуют значки и папки, значит проблема лишь в их отображении.
Если каталог рабочего стола пуст, возможно, все папки и ярлыки были удалены.
2.Щелкните правой кнопкой мыши на пустой области рабочего стола, чтобы открыть контекстное меню.
Перейдите к пункту «Вид» и проверьте, отмечен ли чекбокс «Отображать значки рабочего стола». Если это не так, верните галочку на ее законное место и тогда все вернётся.
"...напечатает сначала 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.Откройте меню «Выполнить» с комбинации клавиш [Windows] + [R].
В диалоговом окне введите без кавычек слово «desktop» и нажмите [Enter]. Должен отобразиться каталог рабочего стола вашего профиля Windows.
Если в нем присутствуют значки и папки, значит проблема лишь в их отображении.
Если каталог рабочего стола пуст, возможно, все папки и ярлыки были удалены.
2.Щелкните правой кнопкой мыши на пустой области рабочего стола, чтобы открыть контекстное меню.
Перейдите к пункту «Вид» и проверьте, отмечен ли чекбокс «Отображать значки рабочего стола». Если это не так, верните галочку на ее законное место и тогда все вернётся.
3.Попробуйте перезапустить Windows.
"...напечатает сначала 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
при необходимости прогу можно переделать чтобы она находила только максимальное число.