Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон
Первым, очевидно, постановка задачи.
Проведение расчетов.
Далее построение математической модели.
Разработка алгоритма.
Программирование.
Отладка программы.
Анализ результатов.
<em>var a:integer; </em>
<em>begin </em>
<em>writeln('Введите целое число'); </em>
<em>read(a); </em>
<em>if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') </em>
<em>else writeln('Последняя цифра чиста - четная.'); </em>
<em>end.</em><span><em> </em></span>
"Вес" одного символа в первом тексте - 6 бит, а во втором тексте - 2 бита, т. о. информационный вес первого текста в 3 раза больше второго (6/2=3)