Робота з комп'ютерною графікою — один з найпоширеніших напрямків використання персонального комп'ютера, до того ж виконують цю роботу не тільки професійні художники і дизайнери. На будь-яких підприємствах іноді виникає необхідність подачі рекламних оголошень в газетах і журналах або просто у випуску рекламної листівки або буклету.
Без комп'ютерної графіки не обходиться жодна сучасна мультимедійна програма. Робота над графікою становить до 90 % робочого часу програмістських колективів, які випускають програми масового використання.
Розрізняють 3 види комп'ютерної графіки. Це растрова графіка, векторна графіка і фрактальна графіка. Вони відрізняються принципами формування зображення при відображенні на екрані монітора або у разі друку на папері.
Для решения данной задачи определим количество итераций цикла. Для этого рассмотрим, как в результате выполнения алгоритма меняется значение переменной x. Начальное значение x = 0.На каждой итерации цикла значение переменной x увеличивается на 1, а после окончания цикла x = 28. Следовательно, всего было выполнено 28 итераций.
Теперь рассмотрим, как изменялось значение переменной p. Начальное значение p = 0. На каждой итерации цикла значение переменной p увеличивается на a. Так как всего было выполнено 28 итераций, то после выполнения цикла p = 0 + 28 · a = 28a. Так как цикл выполняется, пока условие p < 140 истинно, то выход из цикла осуществляется при p > 140.
Поэтому значение переменной a находим из условия 28a ≥ 140.
Отсюда a ≥ 5.
Значит, наименьшее значение переменной a должно принимать значение 5.
ответ:5
uses crt;
var
i: integer; {счетчик}
s: integer;
begin
clrscr; {очистка экрана}
writeln ('Программа выводит числа от 1 до 99, сумма цифр которых равна числу S');
writeln ('Введите число S, от 0 до 18: ');
{ввод числа S с проверкой на корректность}
repeat
readln (s);
if (s>18) or (s<0) then
writeln ('Неверный ввод. Повторите')
until (s<=18) and (s>=0);
{вывод нужных чисел на экран (цикл с предусловием)}
for i := 1 to 99 do
if ((i div 10) + (i mod 10) = s) then {div дает целую часть, mod - остаток от деления}
write (i, ' ');
repeat until keypressed; {пустой цикл для задержки экрана до нажатия клавиши}
end.