Как пробудить шаринган? и вот ещё задание в WordArt и шрифтом Times New Roman:
1. Найди информацию по предложенным темам и создай страницу газеты.
2. Помни, что газета должна содержать заголовок, дату и номер издания, Ф.И.О.редактора и адрес. (жуков Александр)
3. Тексты должны содержать заголовки, картинки, цитаты.
4. Статьи должны быть написаны в колонках. Также нужно поставить номера страниц.
Темы статей газеты:
• «Наука информатика»
• «Интересные события в мире»
• «Моя школа»
• «Мой любимый поэт или писатель»
• «Новости спорта»
• «Знаешь ли ты государственные символы?»
Даю вам за это
4. выделите текст цвет которого требуется изменить.на вкладке главная в группе шрифт щелкните стрелку рядом с элементом цвет шрифта а затем выберите цвет.для быстрого форматирования текста можно использовать мини-панель инструментов с параметрами форматирования.
5.выделите текст или ячейки с текстом которые нужно изменить чтобы выделить весь текст в документе word нажмите клавишу CTRL+A.на вкладке главная в поле размер шрифта выберите нужный размер шрифта.
6.форматирование текста изменение размера шрифта положение относительно страницы начертание курсив жирный обычной и т.д. основная цель повышение читаемости и наглядности текста
1) program Array16;
var
i:integer; // счетчик в цикле
N:integer;
a: array [1..10] of integer;
begin
writeln('Введите N (N<10)');
readln(N); // ввод размера массива
for i:=1 to N do
begin
write('a[',i,']=');
readln(A[i]); // ручной ввод значений массива
end;
writeln('Результат');
for i:=1 to N do
begin
// вычисление и вывод элементов в указанном порядке
write(' ',a[(i div 2+1)*((i) mod 2)+ n*((i+1)mod 2)-((i div 2)-1)*((i+1) mod 2)]);
end;
end.
2) Var A:array[1..100] of integer;
i,n:byte;
Begin
write('Введите n<=100: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31);
write(A[i]:3);
End;
writeln;
For i:=1 to n div 2 do
write(A[i]:3,A[n-i+1]:3);
if n mod 2 <>0 then write(A[n div 2+1]:3);
End.