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

РЕБЯТА УМОЛЯЮ НУЖНО ОЧЕНЬ ОЧЕНЬ В одном из произведений Н. В. Гоголя, текст которого приведён в подкаталоге Гоголь каталога

Проза, присутствует персонаж Плюшкин. С поисковых средств операционной системы и

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

Выполните задание, распаковав архив на своём компьютере.

12.

Сколько файлов с расширением .txt содержится в подкаталогах каталога Поэзия? В ответе укажите

только число.

Выполните задание, распаковав архив на своём компьютере.

13.

13.1 Используя информацию и иллюстративный материал, содержащийся в каталоге «Обыкновенная

белка», создайте презентацию из трёх слайдов на тему «Обыкновенная белка». В презентации должны

содержаться краткие иллюстрированные сведения о внешнем виде, об ареале обитания, образе жизни и

рационе обыкновенных белок. Все слайды должны быть выполнены в едином стиле, каждый слайд

должен быть озаглавлен.

Обыкновенная белка.rar

13.2 Создайте в текстовом редакторе документ и напишите в нём следующий текст, точно

воспроизведя всё оформление текста, имеющееся в образце.

Данный текст должен быть написан шрифтом размером 14 пунктов. Основной текст выровнен по

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

курсивом и подчеркиванием.

При этом допустимо, чтобы ширина Вашего текста отличалась от ширины текста в примере,

поскольку ширина текста зависит от размера страницы и полей. В этом случае разбиение текста на

строки должно соответствовать стандартной ширине абзаца.​

👇
Открыть все ответы
Ответ:
TTpo100y4eHuk
TTpo100y4eHuk
16.05.2020

const

  n = 3;

  m = 4;

var

  matrix: array[1..n, 1..m] of integer;

  max, max_i, max_j, i, j: integer;

  sum: integer;

 

begin

  writeln('введите массив ',n, '*', m, ' элементов: ');

  for i : = 1 to n do

    for j : = 1 to m do

      read(matrix[i,j]);

     

  max : = matrix[1,1];

 

  for i : = 1 to n do

    for j : = 1 to m do

      if (max < matrix[i,j]) then

      begin

        max : = matrix[i,j];

        max_i : = i;

        max_j : = j;

      end;

 

  sum : = 0;

 

  for i : = 1 to n do

    sum : = sum + matrix[i, max_j];

   

  for j : = 1 to m do

    sum : = sum + matrix[max_i, j];

   

  matrix[max_i, max_j] : = sum;

 

  writeln('получившийся массив: ');

  for i : = 1 to n do

  begin

    for j : = 1 to m do

      write(matrix[i,j], ' ');

   

    writeln();

  end;

end.

пример:

введите массив 3*4 элементов:

1 2 3 4

55 6 7 8

9 10 11 12

получившийся массив:

1 2 3 4

141 6 7 8

9 10 11 12

4,8(86 оценок)
Ответ:
sokolovvw1
sokolovvw1
16.05.2020

nomer3

program ab;

uses crt

uses sysutils;

var s,s1: string;

i,j: integer;

begin

clrscr;

write('введите строку слово');

writeln;

readln(s);

for i: =1 to length(s) do

for j: =1 to length(s) do

if (s[i]=s[j]) and(i< > j)

then

if pos(s[i], s1)=0

then s1: =s1+s[i]+' ';

write('повторяющиеся символы: ', s1);

readln;

end.

nomer2

program as

uses crt;

var s,sp: string;

i: integer;

begin

clrscr;

write('s=');

readln(s);

sp: ='';

for i: =1 to length(s) do

sp: =s[i]+sp;

if sp=s then writeln ('палиндром')

else writeln ('не палиндром');

readkey

end.

nomer1

function compare(s1,s2: string): boolean;

begin

result: =s1=s2;

end;

var s1,s2: string;

begin

readln(s1);

readln(s2);

if compare(s1,s2) then write('yes')

else write('no')

end.

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