Решение, что называется, "в лоб" (далеко, очень далеко, не самое лучшее): var s,k1,k5,k10,k50,k100,k500,k1000,k10000:integer; begin write('s = '); readln(s); k1:=0; k5:=0; k10:=0; k50:=0; k100:=0; k500:=0; k1000:=0; k10000:=0; while s>=10000 do begin s:=s-10000; k10000:=k10000+1; end; while s>=1000 do begin s:=s-1000; k1000:=k1000+1; end; while s>=500 do begin s:=s-500; k500:=k500+1; end; while s>=100 do begin s:=s-100; k100:=k100+1; end; while s>=50 do begin s:=s-50; k50:=k50+1; end; while s>=10 do begin s:=s-10; k10:=k10+1; end; while s>=5 do begin s:=s-5; k5:=k5+1; end; while s>=1 do begin s:=s-1; k1:=k1+1; end; writeln('k10000=',k10000,' k1000=',k1000,' k500=',k500,' k100=',k100,' k50=',k50,' k10=',k10,' k5=',k5,' k1=',k1); writeln(' Всего купюр = ',k1+k5+k10+k50+k100+k500+k1000+k10000); end.
Пример: s = 27879 k10000=2 k1000=7 k500=1 k100=3 k50=1 k10=2 k5=1 k1=4 Всего купюр = 21
Электронные таблицы - это работающее в диалоговом режиме приложение, хранящее и обрабатывающее данные в прямоугольных таблицах. Электронные таблицы позволяют обрабатывать большие массивы числовых данных. В отличие от таблиц на бумаге электронные таблицы обеспечивают проведение динамических вычислений, т. е. пересчет по формулам при введении новых чисел. В математике с электронных таблиц можно представить функцию в числовой форме и построить ее график, в физике - обработать результаты лабораторной работы, в географии или истории - представить статистические данные в форме диаграммы. При работе с электронными таблицами можно вводить и изменять данные одновременно на нескольких рабочих листах, а также выполнять вычисления на основе данных из нескольких листов.
Если условие никогда не будет ложным (False), тогда цикл будет выполняться бесконечное количество раз.
То есть при описании циклов мы должны правильно указывать условия, при которых он будет выполняться.
Обычно есть некий счетчик, который изменяется во время выполнения цикла и при достижении определенного значения счетчика цикл останавливается.