Первая:
program qwer;
uses crt;
var i, kol : integer;
Begin
kol := 10;
for i := 10 downto 1 do
begin
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят пошли купаться в море.');
writeln(kol,' поросят резвились на просторе.');
writeln(kol,' Один из них утоп – его сложили в гроб,');
kol := kol - 1;
writeln('И вот вам результат – ',kol,' поросят…');
end;
End.
Вторая:
program qwer;
uses crt;
var i, pr, n : integer;
Begin
readln(n);
pr := 1;
for i := 1 to n do
pr := pr * i;
write(pr);
<span>End.
Третья:
program qwer;
uses crt;
var s, i : integer;
Begin
s := 115;
for i := 1 to 9 do
writeln(i * 100,'г = ',i * 100 * s / 1000,'руб');
<span>End.
Готово!</span></span>
Способ:числовой-с помощью чисел.Графический-с помощью рисунков или значков.Символьный- с помощью символов того же алфавита или текста.ЦЕЛи:сокращение записи,засекречивание иформации,одобство обработки.виды:алфавитное кодирование(естественный язык),Банарное кодирование(барабан-глухой и звонкий звук),Нотное кодирование(нотные знаки),Пиктографическое кодирование(рисунки,условные знаки на картах,схемах),Машинное кодирование(ноль и единица 0,1)
1) Паскаль
2) Макет и карта
3) <span>Упрощённое подобие этого объекта, которое воспроизводит его форму и размеры в нужном масштабе</span>
Ну, для начала определим, сколько битов в одном символе
Значит, 5 бит/символ
В первых символах по 2 бита, ибо
, а символа как раз 4
Итого,
бит в слове из 8-ми букв