Это задание по оивт.Есть тут умные? Соедините файлы в один.
Для этого создайте новый файл, выполните команду Вставка-Объект-Текст из файла и выберите файл ВВЕДЕНИЕ. Аналогичным образом вставьте файлы АНГЛИЯ и ФРАНЦИЯ. Сохрани те созданный файл под именем ЖУРНАЛ в своей лич ной папке командой Файл-Сохранить; перейдите на вкладку Разметка страницы Вызовите диалоговое окно Параметры страницы, на вкладке По ля установите ориентация — книжная, поля: верхнее – 2 см, нижнее – 2,5 см, левое – 1 см, правое – 2,2 см, пере Плет — 1,3 см, параметры при печати нескольких страниц

зеркальные. На вкладке Размер бумаги установите формат бумаги – А4; для оформления заголовков и подзаголовков используй те инструмент Формат по образцу на вкладке Главная:

название разделов (Введение, На берегу туманного Аль биона, Страна мечты) по центру, установите размер шрифта 12 пт, все прописные, полужирное начертание.

Все остальные заголовки оформите по центру, размер шрифта 11 пт, полужирное начертание; Вызовите диалоговое окно Шрифт вкладка Дополни тельно, установите разреженный интервал между сим волами на 4 пт; форматирование абзацев раздела ВВЕДЕНИЕ; установите у эпиграфа начертание полужирное курсив и размер шрифта — 11 пт с диалогового окна Шрифт; отформатируйте эпиграф: отступ слева – 9,5 см, справа — см, первая строка: отступ- нет, выравнивание-пола- вому краю. Для подписи: выравнивание краю; по правому установите у стихотворения начертание курсив, вырав Нивание: по левому краю и размер шрифта - 11 пт; отформатируйте стихотворение: отступ слева – 5,5 см, справа — (0 см, первая строка: отступ-нет.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

знаниепуть

06.03.2021 17:21

Как выглядят внутреннее представление числа -326 в 2-ячейке...

IsabellaSwan2017

29.09.2022 18:04

3. Запиши какую встроенную функцию следует использовать Маpary и ячейках E12 и F12 для вычисления итоговой суммы....

DjDenZzz

09.09.2021 16:35

записати короткий переказ розділів оповідання Дитинство Тараса . Щоб фарби були як живі Преволоцький знайшов Тараса У Корсунь на Рось зелену У Києві Три дні волі...

йщз

08.09.2020 06:23

9. Зазначте чинники живої природи: А температура Б конкуренція В запилення комахами Г вологість Д паразитизм Е освітленість...

Polona1337

08.09.2020 06:23

СОЗДАЙТЕ ФИГУРУ ПО КООРДИНАТАМ...

1326237416414

08.09.2020 06:23

Які слова тітки Летті запали в душу Дигорі?...

xelasaa48

10.06.2021 09:30

дам сколько смогу очень надо...

zhannayachmenev

15.11.2020 06:49

Диалог на тему Өнерлі өрге жүзер надо это...

inpurple

29.06.2021 01:58

навколо правильного чотирикутника зі стороною 4 см описано коло. Знайдіть площу кругового сектора, який відповідає центральному куту чотирикутника....

Кириллпронин

05.06.2020 06:43

1. Дайте визначення поняттю «фентезі». 2. Охарактеризуйте образ Дж. Плейтена, героя повісті А. Азімова «Фах». 3.Реальне та фантастичне у творах «Чорнильне серце»,...

Ответ:

dias2266

26.06.2021 06:14

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
  begin
   A[i] := 1+random(n);
    Write (A[i]:4);
  end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
  begin
   if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
   Write (A[i]:4);
end;
ReadLn;
end.
Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1

0,0(0 оценок)

Ответ:

gg228

18.11.2021 12:00

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку