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

Спо паскалю 1.задана матрица размером nxm вещественных чисел. получить массив b, присвоив его k-му элементу сумму элементов к 1-й строки матрицы. 2.дан текст, который состоит из слов. слова в тексте отделяются одно от другого пробелами и содержат гласные буквы, которые находятся во множестве [‘ а ‘, ‘ е ‘, ‘ у ‘, ‘ о ‘]. подсчитать количество букв в тексте, количество слов в тексте и вывести из текста количество гласных букв данного множества.

👇
Ответ:
//Pascal ABC.NET 3.1 сборка 1256

//1
Const
 n=3;
 m=4;

 Var
 ma:array[1..n,1..m] of real;
 ar:array[1..n] of real;
i,j:integer;
s:real;
begin
randomize;
s:=0;
writeln('Matrix:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    ma[i,j]:=random(10);
    write(ma[i,j]:4);
    s:=s+ma[i,j];
   end;
  ar[i]:=s;
  s:=0;
  writeln;
 end;
writeln('Res:');
for i:=1 to n do
 writeln(i,':',ar[i]);
end.

//2
Var
 se:set of char;
 s:string;
 i,r1,r2:integer;
begin
se:=['а','е','у','о'];
readln(s);
s:=s.Trim;
i:=1;
while i<length(s) do
if (s[i]=' ') and (s[i+1]=' ') then delete(s,i+1,1) else inc(i);
var ars:=s.Split;
for i:=1 to length(s) do
 begin
  if ((ordansi(lowcase(s[i]))>=65) and (ordansi(lowcase(s[i]))<=90)) or ((ordansi(lowcase(s[i]))>=97) and (ordansi(lowcase(s[i]))<=122)) or ((ordansi(lowcase(s[i]))>=128) and (ordansi(lowcase(s[i]))<=175)) or ((ordansi(lowcase(s[i]))>=224) and (ordansi(lowcase(s[i]))<=243)) then inc(r1);
  if lowcase(s[i]) in se then inc(r2);
 end;
writeln('Количество букв:',r1);
writeln('Количество слов:',ars.Length);
writeln('Количество гласных из множества:',r2);
end.

Пример ввода:
Просто текст
Пример вывода:
Количество букв:11
Количество слов:2
Количество гласных из множества:3
4,6(45 оценок)
Открыть все ответы
Ответ:
MrPuk
MrPuk
11.01.2023

Объяснение:Временные значения денег

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

том, что сумма денег увеличивается, поскольку постоянно поступают начисления по процентам. Другими словами, вложив

один рубль сегодня, завтра вы получите больше.

Например, предположим, что богатенький заокеанский

дядюшка решил подарить вам деньги, причем нужно выбрать

один из вариантов.

Получить 80 000 руб. сегодня.

Получить 95 000 руб. через год.

Получить 120 000 руб. через пять лет.

Получать 1 500 руб. каждый месяц на протя

4,5(43 оценок)
Ответ:
Ирина132435
Ирина132435
11.01.2023

#include <iostream>

using namespace std;

int main()

{

   int *arr; // указатель для выделения памяти под массив

   int size; // размер массива

   

   // Ввод количества элементов массива

   cout << "n = ";

   cin >> size;

   if (size <= 0) {

       // Размер масива должен быть положитлеьным

       cerr << "Invalid size" << endl;

       return 1;

   }

   arr = new int[size]; // выделение памяти под массив

   // заполнение массива

   for (int i = 0; i < size; i++) {

       cout << "arr[" << i << "] = ";

       cin >> arr[i];

   }

   int temp; // временная переменная для обмена элементов местами

   // Сортировка массива пузырьком

   for (int i = 0; i < size - 1; i++) {

       for (int j = 0; j < size - i - 1; j++) {

           if (arr[j] > arr[j + 1]) {

               // меняем элементы местами

               temp = arr[j];

               arr[j] = arr[j + 1];

               arr[j + 1] = temp;

           }

       }

   }

   // Вывод отсортированного массива на экран

   for (int i = 0; i < size; i++) {

       cout << arr[i] << " ";

   }

   cout << endl;

   delete [] arr; // освобождение памяти;

   

   return 0;

}

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