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

Определить кол-во символов в словосочитании. turbo pascal.

👇
Ответ:
AmAss
AmAss
20.08.2020
14)просто надо посчитать сколько букв ,пробелов и знаков препинания. 
4,7(64 оценок)
Открыть все ответы
Ответ:
Даша0109
Даша0109
20.08.2020

Если что-то непонятно или не работает - спрашивайте.

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

#define M 4

#define N 4

int main()

{

int A[M][N]; // произвольная матрица

int i, j, indx = -1;

// Автоматически заполняем матрицу ,

// находим индекс второго отрицательного элемента ,

// выводим матрицу на экран

srand((unsigned)time(NULL));

printf("Matrix: \n");

for (i = 0; i < M; i++)

{

 for (j = 0; j < N; j++)

 {

  A[i][j] = (rand() % 201) - 100;

  printf("%5d ", A[i][j]);

  if ((A[i][j] < 0)&&(indx<0))

  {

   indx--;

   if (indx == -3) indx = i * M + j;

  }

 }

 printf("\n");

}

// Сортировка по убыванию элементов, расположенных

// после второго отрицательного числа

for (i = indx + 1; i < M * N - 1; i++)

{

 indx = i;

 for (j = i+1; j < M * N; j++)

  if (A[0][j] > A[0][indx]) indx = j;

 j = A[0][i];

 A[0][i] = A[0][indx];

 A[0][indx] = j;

}

// Вывод результата

printf("\nSort matrix: \n");

for (i = 0; i < M; i++)

{

 for (j = 0; j < N; j++)

  printf("%5d ", A[i][j]);

 printf("\n");

}

return 0;

}

4,4(2 оценок)
Ответ:
KNV1980G
KNV1980G
20.08.2020

Program abc;

var P,R,N,D,A,C: integer;

var B:real;

begin

  write('Введите число P(Первый член прогрессии) - ');

 Read(P);

   write('Введите число R(Разность прогрессии) - ');

 Read(R);

   write('Введите число N(Число которое не может привышаться) - ');

 Read(N);

  D:=2*P;

  A:=D+R*(N-1);

  B:=A/2*N;

 If  (B>N) then writeln('ответ превышает число N')

  else Writeln('Сумма членов арифметической прогрессии:' B);

end.

Быстро прочекал что такое арифметическая прогрессия и попытался написать код. Не суди строго если что-то не так)

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