В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
123Gopo
123Gopo
10.09.2021 15:14 •  Информатика

Вычислить периметр ромба если диоганали заданы​

Показать ответ
Ответ:
kazimirova2009
kazimirova2009
18.07.2022 10:35

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

#include<windows.h>

#include<iostream.h>

#include<stdlib.h>

#include<conio.h>

#include<stdio.h>

#include<string.h>

int main()

{

   SetConsoleOutputCP(1251);

   char text[1000],p,r[]=" ,._-!?\"';:()";

   char T[][33] =  

{

{'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'},

{'А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я'}

};

   int i,q,j;

   char d,sLen;

   cout<<"Введите строку:"<<endl;

   /*gets(s);

   d=strlen(s);

   p=s[1];

   for(i=2;i<d;i++)

       if(strrchr(s[i],p)==0)

           p=s[i]+p;*/

   while(gets(text)!=NULL)

{

sLen = strlen(text);

for(i = 1; i < (sLen-1); i++){

 

if(text[i-1]=='.'){

for(i = 1; i < (sLen-1); i++){

 

{

for(j = 0; j < 33; j++) for(i = 0; i < 2; i++)

if(text[i] == T[i][j]) ;}}

cout<<text<<endl;

if(q==1) printf("%s\n", text);

 

   cout<<p<<endl;

   return 0;

Объяснение:

0,0(0 оценок)
Ответ:
viktorpadalck
viktorpadalck
08.11.2021 12:54
А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота