ВОПРОСЫ И ЗАДАНИЯ 1. Приведите пример таблицы.
2. Расскажите об элементах таблицы.
3. Почему возникает необходимость добавлять таблицы в доку.
мент?
4. Как указывается место в документе, куда нужно вставить табли.
цу?
5. Какие вставки таблицы в текстовом процессоре Word
Вы знаете? Покажите на компьютере.
6.
Как можно копировать данные из таблицы?
7. Как можно удалить таблицу из документа?
8. Как можно менять свойства таблицы?
9. Какие данные можно поместить в ячейки таблицы?
10. Покажите на практике простые действия, выполняемые над таб-
Лицами.
11. Как можно изменить ширину столбца таблицы?
12. Как можно изменить высоту строки таблицы?
13. Как заполняется таблица? Покажите.
14. Покажите, как раскрасить границы таблицы.
15. Покажите, как изменить фон строки, столбца и ячейки в таблице.

1) var a1, a2, a3, s: integer;
begin    
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.

2) var n, s, i: integer;
begin    
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.

3) var n, s, i, k: integer;
begin    
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.

4)var  l, m: integer;
begin 
write('Введите расстояние в сантиметрах: '); 
readln(l); 
m := l div 100; 
write('Количество метров в ', l, ' сантиметрах = ', m);
end.

Program task1;
var  a, i, kol :integer;
begin
  for i:= 1 to 3 do  begin    readln(a);    if a > 0 then      inc(kol);  end;  writeln(kol);
end.

program task2;
var  n, result :integer;
function summa (x :integer) :integer;  var     i, sum :integer;  begin    for i:= 1 to x do      sum:= sum + i;    summa:= sum;  end;
begin
  readln(n);  result:= summa(n);  writeln(result);
end.

program task3;
var  i, n, growth, sum, kol :integer;  SrGrowth :real;
begin
  readln(n);  sum:= 0; kol:= 0;  for i:= 1 to n do  begin    readln(growth);    sum:= sum + growth;    inc(kol);  end;  SrGrowth:= sum/kol;  writeln(SrGrowth);
end.

program task4;
var  l :integer;
begin
  readln(l);  l:= l div 100;  writeln(l);
end.