314159026
08.01.2022 04:49

Задача №1 Дана строка, подсчитать количество вхождений слова «кот» в данную строку. Пример: st:=’кровать’; copy(st,2,3); Результат типа string A:=’ров’; program pr1; var st: string; i,k: integer; begin write('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if copy(st,i,3)='кот' then k:=k+1; write('количество вхождений=',k); end. Задача №2 Найти номер позиции, с которой в заданной строке в первый раз встретится некоторое введенное слово. Пример: A:=’юмор’; B:=’ор’; Pos(В,А); Результат типа integer D:=3; program pr2; var st1,st2:string; t:integer; begin write ('введите строку: '); readln(st1); write ('введите слово: '); readln(st2); t:=pos(st2,st1); write('введенное слово начинается с ',t,' позиции'); end. Задача №3 Подсчитать количество запятых в заданном тексте с массива символов. program pr3; var st:string; i,k:integer; begin write ('введите строку: '); readln(st); k:=0; for i:=1 to length(st) do if st[i]=',' then k:=k+1; write('количество запятых=',k); end. Задача №4 Заменить в заданной строке все вхождения «ку» на «за» с операции копирования, удаления и вставки. program pr4; var st:string; i:integer; begin write('введите строку:'); readln(st); for i:=1 to length(st) do if copy(st,i,2)='ку' then begin delete(st,i,2); insert('за',st,i); end; write(st); end. Д/з Решить задачи и составить к ним программы: В строке заменить все двоеточие(:)точкой с запятой (;). Подсчитать количество замен. Подсчитать количество букв «О» и «о» в строке.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
brody96
17.05.2022 05:35

program mas;

var

 massive: array[0..1000] of integer;

 n, i: integer;

begin

 massive[0] := 2;

 write('Введите количество элементов массива: ');

 read(n);

 for i := 0 to n - 1 do

 begin

   write(massive[i], ' ');

   massive[i + 1] := massive[i] + 2;

 end;

end.

Объяснение:

Максимальный размер массива - 1001 элемент.

program mas;  // Название программы

var

 massive: array[0..1000] of integer;  // Целочисленный массив

 n, i: integer;  // Переменные, отвечающие за количество чисел в массиве и счётчик.

begin  // Начало программы

 massive[0] := 2;  // Первое значение массива = 2

 write('Введите количество элементов массива: ');  // Вывод сообщения в консоль

 read(n);  // Считываем значение переменной n с клавиатуры

 for i := 0 to n - 1 do  // Идём от 0 до n - 1 индекса (n - 1, т. к. идём с нулевого индекса)

 begin  // Начало цикла

   write(massive[i], ' ');  // Вывод значения массива с индексом i

   massive[i + 1] := massive[i] + 2;  // Следующий элемент массива = текущий элемент массива + 2

 end;  // Конец цикла

end. // Конец программы

0,0(0 оценок)
Ответ:
dyganovanton
08.04.2021 20:16

Уровень - Анализ

a) 1 байт = 8 бит = 2^3 бит

б) 213 бит = 0,026 Кбайт

в) 1 Мбайт = 1024 Кбайт = 2^20 байт = 2^23 бит

г) 1,5 Кбайт = 1536 байт = 12288 бит

Уровень - Синтез

a) 1 Мбайт = 2^10 Кбайт = 1048576 байт

б) 1 Гбайт = 2^10 Мбайт= 2^20 Кбайт

в) 2 Тбайт = 2048 Гбайт = 2^21 Мбайт

г) 1,5 Гбайт = 1536 Мбайт = 1572864 Кбайт

Объяснение:

1 байт = 8 бит

1 Кбайт = 1024 байт = 2^10 байт

1 Мбайт = 1024 Кбайт = 2^10 Кбайт

1 Гбайт = 1024 Мбайт = 2^10 Мбайт

1 Тбайт = 1024 Гбайт = 2^10 Гбайт

12288 бит / 8 = 1536 байт

1536 байт / 1024 = 1,5 Кбайт

2 Тбайт * 1024 = 2048 Гбайт = 2^11 Гбайт

2^11 Гбайт * 2^10 = 2^21 Мбайт

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота