Данные ячеек таблицы можно форматировать как о ее так и вместе (выделив в блок). При этом положение на реле цвет и вид шрифта легко выбираются при дете ВОПРОСЫ И ЗАДАНИЯ ? а G 1. Приведите пример таблицы. 2 Расскажите об элементах таборы 3. Почему возникает необходимость добавлять каби я не мент? 4. Как указывается место в документе, куда нужно есть цу? Какие вставки таблицы в текстовом процессоре Word вы знаете? Покажите на компьютере. 6. Как можно копировать данные из таблицы? 7. Как можно удалить таблицу из документа? Как можно менять свойства таблицы 9. Какие данные можно поместить в ячейки табыс 10. Покажите на практике простые действия, выполняеме на с лицами. 11. Как можно изменить ширину столбца табли? 12. Как можно изменить высоту строки табли? 13. Как заполняется таблица? Покажите. 14. Покажите, как раскрасить границы таблицы 15. Покажите, как изменить фон строки, столба и ячейки в таблице
1) Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ю степень, где N - количество цифр в числе, равна самому числу. Напримерт153=1^3 5^3 3^3. Найдитетвсе трехзначныеии четырехзначныеичисла Армстронга
var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
else c:=(b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число армстронга ==> ', a);
end;
end.
2)Авmoморфные числа. Натуральное число называется автоморфным, если оно равно последним цифрам своего квадрата. Например: 25 и 625. Напишите программу, которая вводит натуральное число N и выводит на акран все автоморфные числа, не превосходящие N.
var n,i,l:integer; s1,s2:string;
begin
write('n = '); readln(n);
for i:=1 to n do
begin
str(i,s1);
l:=length(s1);
str(i*i,s2);
if s1=copy(s2,length(s2)-l+1,l) then writeln(i,' ',i*i);
end;
end.
3)Модифицированный алгоритм Евклида для вычисления наибольшего общего делителя двух натуральных чисел, формулируется так: нужно заменять большее число на остаток от деления большего на меньшее до тех пор, пока остаток не станет равно нулю; тогда второе число и есть НОД. Напишите программу, которая реализует этот алгоритм.
var a,b,nod,k:integer;
begin
readln(a,b);
k:=0;
while (a<>0)and(b<>0) do
begin
if a>b then a:=a mod b else b:=b mod a;
k:=k+1;
end;
nod:=a+b;
writeln(nod,' ',k);
end.