Ваня вычислил, что в одном лилипутском шаге - три муравьиных, в обычном шаге - два лилипутских, а в гигантских - три обычных указать нужное количество гигантских, обычных, лилипутских и муравьиных шагов.
Входные данные: расстояние S (S < or =) 10⁹, заданное в муравьиных шагах
Выходные данные: 4 числа через пробел: кол-во гигантских, обычных, лилипутских и муравьиных шагов.
Пример:
Вход: 59
Выход: 3 0 1 2
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
s := s * a[i];
end;
writeln;
writeln(s);
end.
2) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
for i := 1 to n do begin
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.
end;
writeln;
writeln(s);
end.
3)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) then s:=a[i];
end;
writeln;
writeln(s);
end.
4)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];
end;
writeln;
writeln(s);
end.
1 набор текста;
2 вырезание кусков текста, запоминание их в течении текущего сеанса работы, а также в виде отдельных файлов;
3 вставка кусков в нужное место текста;
4 замена слов одно на другое частично или полностью по всему тексту;
5 нахождение в тексте нужных слов или предложений;
6 форматирование текста, т.е. придание ему определенного вида по следующим параметрам: ширина текстовой колонки, абзац, поля с обеих сторон, верхнее и нижнее поле, расстояние между строками, выравнивание края строк;
7 автоматическая разбивка текста на страницы с заданным числом строк;
8 автоматическая нумерация страниц;
9 автоматический ввод подзаголовков в нижней или верхней части страницы;
10 выделение части текста жирным, наклонным или подчеркнутым шрифтом;
11 переключение программы для работы с другим алфавитом;
12 табуляция строк, т.е. создание постоянных интервалов для представления текста в виде колонок;
13 при вводе текста вы упираетесь в конец строки, Word автоматически делает переход на следующую строку;
14 если при вводе текста делается опечатка, функция автокоррекции автоматически ее исправляет. А функция автоматической проверки орфографии подчеркивает неправильно написанные слова красной волнистой линией, чтобы их было легче увидеть и исправить;
15 если пользоваться дефисами для выделения пунктов списка, употреблять дроби, знак торговой марки или другие специальные символы, функция автоформатирования будет сама их корректировать;
16 возможность вставки в текст формул, таблиц, рисунков;
17 возможность создания нескольких текстовых колонок на одной страницы;
18 выбор готовых стилей и шаблонов;
19 для представления текста в виде таблицы можно, конечно, пользоваться и табулятором, однако Microsoft Word предлагает гораздо более эффективные средства. А если таблица содержит цифровые данные, то их легко превратить в диаграмму;
20 режим предварительного просмотра позволяет увидеть документ в том виде, в каком он выйдет из печати. Кроме того, он дает возможность отобразить сразу все страницы, что удобно для внесения изменений перед распечаткой.