М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Alinakis180902
Alinakis180902
04.04.2020 09:48 •  Информатика

Решить pascal в массиве состоящем из 15 целых чисел заменить все числа кратные 3 на 0.

👇
Ответ:
Nisson1
Nisson1
04.04.2020
Var
A:array[1..15]of integer;
i:integer;
Begin
Write('До:    ');
For i:= 1 to 15 do
 Begin
 A[i]:=random(15)+1;
 Write(A[i],' ');
 if A[i] mod 3 = 0 then A[i]:=0
 End;
WriteLn;
Write('После: ');
For i:= 1 to 15 do
 Write(A[i],' ')
End.
4,4(9 оценок)
Ответ:
nastya652
nastya652
04.04.2020
Program al;
const n=15;
var a:array[1..n] of integer;
i:integer;
procedure zam;
begin
for i := 1 to n do
if a[i] mod 3=0 
then
a[i]:=0;
end;
begin
writeln('vvedite massiv=');
for i:=1 to n do
readln(a[i]);
zam;
writeln('noviy massiv=');
for i := 1 to n do
write (a[i]:4);
readln;
end.
4,8(44 оценок)
Открыть все ответы
Ответ:
сонька177
сонька177
04.04.2020
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,7(42 оценок)
Ответ:
Nurbibi12
Nurbibi12
04.04.2020

1. расширенные возможности по созданию документов:

- самостоятельно пользователем;

- на базе шаблона;

- с мастера.

шаблон  — служебный файл с расширением .dot, который содержит информацию о структуре и оформлении документа конкретного типа: фрагменты стандартного текста͵ графические объекты, стили, элементы автотекста͵ состав панелей инструментов и т. д. шаблон — это предварительно разработанная заготовка, в которую удобно вводить недостающие данные, после чего она сразу превращается в полноценный документ. основная цель создания и использования шаблонов состоит по сути в том, чтобы пользователь не тратил время на ввод типовой информации и форматирование документа. кроме этого, использование шаблонов позволяет поддерживать единообразный стиль документов.

мастер  — служебный файл с расширением .wiz, содержащий перечень вопросов, отвечая на которые, пользователь создает документ. как правило, документ, созданный с мастера, требует внесения в него дополнительных сведений. формат и основные элементы текста на этапе работы с мастером.

2. расширенные возможности по форматированию текста: пользовательское форматирование; стилевое форматирование.

стиль  — это именованный и сохраненный как единое целое набор форматов, таких, как шрифт, размер, отступ, интервал и т. д. существуют стили символов, абзацев, заголовков, указателей.

стилевое форматирование наиболее часто применяется при создании больших по объёму и сложных по структуре документов.

3. разнообразный набор возможностей по работе с графическими объектами:

- включение в документ иллюстраций, созданных в графических редакторах (поддержка технологии ole);

- наличие простого встроенного графического редактора (панель инструментов  рисование);

- вставка рисунков из коллекции clipart;

- создание текстовых эффектов с приложения wordart.

4. поддержка новых технологий ole, dde, truetype.

5. возможность выполнения операций по верстке текста͵ создание оригинал-макетов.

6. создание таблиц, проведение вычислений над данными таблицы, построение диаграмм.

7. наличие фоновой печати документа. фоновая печать позволяет продолжать работу в процессоре во время вывода документа на печать.

8. возможность работы в различных режимах. учитывая зависимость , которую пользователь решает в данный момент времени, можно выбрать один из трех вариантов представления документа в окне ms word: обычный режим; режим разметки страницы; режим структуры документа; режим web-документа.

при черновом наборе текста наиболее удобным является обычный режим. скорость процессора заметно повышается в данном режиме, однако проводить форматирование, верстку текста крайне важно в режиме разметки страницы. при форматировании заголовков структурных частей документа следует устанавливать режим структуры документа.

9. работа с несколькими документами одновременно (многооконный режим).

10. наличие режима  предварительного просмотра, который позволяет увидеть документ таким, каким он будет выведен на печать.

11. возможность набора , и других формул (редактор формул ms equation).

12. поддержка технологии intellisense — функций искусственного интеллекта. этим термином обозначается способность программы анализировать действия пользователя и при крайне важно сти корректировать их или даже брать на себя выполнение некоторых рутинных операций. наиболее важные инструменты технологии: автоматическое корректирование текста в процессе ввода — исправление типовых опечаток, замена введенных символов на специальные и т. п. (автозамена); автоматическая проверка орфографии; автоматическое форматирование документа (автоформат); автоматизация набора текста (автотекст).

11. создание гипертекстовых документов, выработка web-страниц.

12. наличие справочной системы.

4,5(98 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ