1. Напишіть програму, яка у введеному рядку замінює всі букви «а» на літери «б» і навпаки, як великі, так і малі. При
введенні рядка 'абсАБС' повинен вийти результат 'басБАС'.
2. Ввести рядок, в якому записана сума натуральних чисел,
наприклад, '1 + 25 + 3'. Обчислити значення цього виразу
3. Ввести з клавіатури в один рядок прізвище, ім'я та по
батькові, розділивши їх пропуском. Вивести прізвище та
ініціали. Наприклад, при введенні рядка 'Іваненко Петро
Семенович'
повинно вийти 'П.С. Іваненко '.
4. Напишіть програму, яка змінює в імені файлу розширення
на заданий (наприклад, на '.bak'). Вводиться ім'я файлу і
потрібно розширення. Врахуйте, що в початковому імені
розширення може бути порожнім.
5. Напишіть програму, яка визначає, скільки разів входить в
символьний рядок задане слово.
6. Виведіть на екран всі слова з К букв, в яких буква «И»
зустрічається більше 1 разу, і підрахуйте їх кількість.
7. Виведіть на екран всі слова з К букв, в яких є однакові
літери, які стоять поруч (Наприклад, «ИШШО»), і підрахуйте їх
кількість.
procedure CalcArray (const Ax: array of Integer; var S: Integer; var M: Real); // var в параметрах означает, что переменная используется для возврата значения
var
i, c: Integer;
begin
S := 0;
c := 0;
for i := 0 to High (Ax) do begin
S := S + Ax [i]; // здесь накапливаем сумму элементов
c := c + 1;
end;
M := S / c; // когда найдена сумму, рассчитываем среднеарифметическое
end;
var
A: array [0..4] of Integer; // размерность массивов можно делать любой, но начинаться с 0
B: array [0..14] of Integer;
C: array [0..9] of Integer;
i, s: Integer;
m: Real;
begin
SetConsoleCP (1251);
SetConsoleOutputCP (1251);
Randomize; // инициализация датчика случайных чисел
WriteLn ('Массив 1:');
for i := Low (A) to High (A) do begin
A [i] := Random (10); // заполняем элементы массива случайными значениями
Write (IntToStr (A [i]) + ' '); // выводим их для вызов процедуры
WriteLn; // показываем возвращаемые из функции переменные
WriteLn ('Сумма элементов = ' + IntToStr (s));
WriteLn ('Среднеарифметическое = ' + FloatToStr (m));
WriteLn; // аналогично поступаем с другими массивами
WriteLn ('Массив 2:');
for i := Low (B) to High (B) do begin
B [i] := Random (10);
Write (IntToStr (B [i]) + ' ');
end;
CalcArray (B, s, m);
WriteLn;
WriteLn ('Сумма элементов = ' + IntToStr (s));
WriteLn ('Среднеарифметическое = ' + FloatToStr (m));
WriteLn;
WriteLn ('Массив 3:');
for i := Low (C) to High (C) do begin
C [i] := Random (10);
Write (IntToStr (C [i]) + ' ');
end;
CalcArray (C, s, m);
WriteLn;
WriteLn ('Сумма элементов = ' + IntToStr (s));
WriteLn ('Среднеарифметическое = ' + FloatToStr (m));
end.
ответы и объяснения
gfhjkmgfhjkm20
Gfhjkmgfhjkm20Старший Спамаут
2) F7 : H11
Объяснение:
Диапазон ячеек - группа ячеек, задаваемая адресами верхней левой и нижней правой ячеек, разлелённых двоеточием (А1:С3).
Адрес ячейки образуется из имени столбца и строки на пересечении которых находится ячейка (А1).
Первый (Al : F4) и третий (12 : K5a) вариант отбрасываем, т.к. AI и 12 не являются адресами ячеек.
Четвертый вариант (D8 : F9) содержит 6 ячейки - D8, D9, Е8, Е9, F8, F9.
Второй вариант (F7 : H11) содержит 15 ячеек - F7, F8, F9, F10, F11, G7, G8, G9, G10, G11, H7, H8, H9, F10, H11.
Нажми, чтобы рассказать другим,