Вот эти
- вставка таблицы – это проще всего. Здесь вы можете выбрать или ввести необходимое количество столбцов и строк, все они будут иметь одинаковую высоту и ширину, которую можно регулировать курсором. Кстати, вставлять таблицу можно и в уже существующую;
- нарисовать таблицу. В этом методе больше возможностей. Вы сможете разбивать отдельные столбцы и строки на части и делать таблицу более сложной. При переходе в режим рисования курсор принимает вид карандаша, который рисует только прямые линии;
- вставить таблицу из Excel. Так данный программный продукт предназначен именно для работы с таблицами, то разработчики интегрировали эти две программы для удобства пользователя;
- использовать готовый шаблон. Этот для любителей красоты в документе. Вы просто вставляете готовую таблицу с оформленным дизайном и редактируете ее под свои нужды.
Также не забывайте, что все приведенные можно использовать одновременно для создания и редактирования одной таблицы. И если при создании браузеров программисты Microsoft, по утверждению многих пользователей, халтурят, то здесь их обвинить не в чем, ведь по удобству и возможностям Word практически не имеет конкурентов среди текстовых редакторов.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var
i,n,k:integer;
a:array[1..100] of integer;
begin
writeln('введите числа последовательности. Окончанием ввода будет число 0');
i:=0;
n:=0;
repeat
i:=i+1;
n:=n+1;
read(a[i]);
write(' ');
until (a[i]=0) or (i>1000);
writeln;
k:=0;
writeln('Последовательность:');
for i:=1 to n-1 do
begin
write('a[',i,']=',a[i],' ');
if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then
k:=k+1;
end;
writeln('кол-во целых чётных чисел кратных 7 - ',k);
end.
Второй вариант : 1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var k,n: integer;
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
while n<>0 do
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
end;
writeln(k-1);
end.
3 ВАРИАНТ :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
lim1=30000;
lim2=1000;
var
a,kol,res:integer;
begin
kol:=0;
res:=0;
repeat
repeat
readln(a);
if abs(a)>lim1 then
writeln('Oshibka vvoda. |a|<=',lim1);
until abs(a)<=lim1;
if a<>0 then
begin
inc(kol);
if (a mod 2=0) and (a mod 7=0) then
inc(res);
end;
until (a=0) or (kol=lim2);
write(res);
end.
