меняем строку for var... на
for var n:=k to 1 do
будет выводить значение от большего до двух
1.с
2.а
3.с
4.b
...
8.d
9.c
10.b
11.
1. Дискретность (алгоритм - последовательность простых шагов)
2. Определенность (каждый шаг алгоритма четкий и однозначный)
3. Результативность (алгоритм даёт результат за конечное число шагов)
4. Массовость (алгоритм подходит для некоторого класса задач, а не тольоко одной)
5. Правильность (алгоритм дает правильный результат решения поставленной задачи)
12.
Цикл с предусловием (см. рис.1) - цикл, в котором условие находится перед телом цикла, а сам цикл выполняется до тех пор, пока условие не станет ложным.
WHILE {условие продолжения цикла} DO
{действия}
Особенности:
1) число повторений цикла заранее неизвестно;
2) тело цикла может не выполниться ни разу;
Цикл с постусловием (см. рис.2) - условие цикла располагается после тела цикла, а не до него.
REPEAT
{действия}
UNTIL {условие выхода из цикла};
Особенности
1) число повторений цикла заранее неизвестно;
2) тело цикла выполняется как минимум один раз;
13.
(См. рис.3)
Сначала выполняются некоторые линейные шаги (блоки 2 и 3). С помощью блока 4 организован цикл с предусловием. Если условие 4 выполняется - выход из алгоритма (блок 9). Если условие 4 не выполняется - выполняется тело цикла (блоки 5, 6, 7, 8). В блоке 5 имеем разветвление алгоритма. Если условие 5 выполняется - переход к линейной последовательности шагов в блоках 6 и 7. Если условие 5 не выполняется - переход к действиям в блоке 8.
После выполнения блока 7 или 8 управление опять передаётся на блок 4 для проверки условия продолжения цикла.
Один из возможных вариантов (если не затрагивать глубоко эти системы), дан во вложении.
Ширина изображения: 6 * 256 = 1536
Высота изображения 8 * 256 = 2048
Общее количество точек в изображении 1536 * 2048 = 3 145 728
6 МБайт = 6 * 1024 * 1024 = 6 291 456
На каждую точку приходится 6 291 456 / 3 145 728 = 2 байта или 16 битов
Цвет состоит из 3 компонент (красный, зелёный, синий), поэтому на каждый цвет приходится 16 / 3 = 5 бит.
Ответ: цветовая глубина 5 бит на пиксель.
Примечание: часто используется схема, в которой на красный и синий отводится по 5 битов, а на зелёный 6, что позволяет полностью занять все 16 битов.
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.