"Таблица умножения". Выведи на экран таблицу умножения от 2х2=4 до 9х9=81 (от 2х2 до 2х9, от 3х3 до 3х9, от 4х4 до 4х9 и т. д.). Каждый пример выводи с новой строки. При переходе на новое число выведи дополнительно строку из 14 решёток # (после 2х9=18, 3х9=27 и т.д.). Реши задачу с цикла for.
Основные преимущества компьютерной технологии создания текстовых документов перед бумажной технологией:
1) Понятно написанный текст (есть не понятные почерки);
2) Высока скорость набора текста;
4) Возможность быстрой корректировка ошибок (в рукописном исправить сложнее);
5) Быстрая перестановка и перенесение теста в нужные места (сохранение выделенного фрагмента в буфер обмена);
6) Простое форматирование текста (стиль и размеры текста) и абзацев в целом;
7) Просто насыщение текста картинками, таблицами, графиками и т.п.
8) Быстрый поиск ключевого слова по тексту;
9) Одновременная работа над одним текстом нескольких авторов;
10) Автоматическая проверка ошибок;
11) Простое и удобное рецензирование;
12) Быстрое размножение текста в любых объемах;
13) Защита авторских прав (от копирования, редактирования);
14) Доступ к тексту из любой точки мира;
15) Печать текста с наложением водяными знаками и применение различных подложек;
16) Представление текста в любых форматах (doc, pdf, jpeg и т.д);
17) Возможность шифрования текста для защиты от несанкционированного доступа;
18) Возможность применения по тексту гипер- и перекрестных ссылок;
19) Возможность установки цифровой подписи от автора текста;
20) Сохранение природных ресурсов (не нужно рубить леса для бумаги).
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18