Начало
Проснуться
Умыться
Собраться
Выйти из дома
Прийти в школу
Прийти на первый урок
Прийти на второй урок
Прийти на третий урок
Прийти на четвертый урок
Выйти из школы
Прийти домой
Пообедать
Начать выполнять домашнее задание
Сесть за стол
Достать дневник, учебники, тетради
Прочитать задание в дневнике
Открыть учебник и тетрадь
Выполнить задание
Сложить школьные вещи в портфель
Пойти почистить зубы
Лечь спать
Конец
while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
D1)прямая горизонтальная линия
2) любой из этих рисунков
Var
a,i:integer;
begin
write('Введите число:');
readln(a);
writeln('Единицы: ',a mod 10);
a:=a div 10;
writeln('Десятые: ',a mod 10);
writeln('Сотые: ',a div 10);
readln;
end.
Задание лишено смысла, т. к. символ никогда не кодируется частью байта. Но допустим, что под байтом тут просто понимается массив из 8 битов. Тогда 2^(30 * 8 / 40) = 64.