Hhhlff
30.05.2023 04:01

Паскаль абс. сравните 3 любых слова.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
gunelmustafaeva
01.02.2020 18:28

#include<iostream> //Если обьявили подключение библиотеки,то уж напишите что подкулючаете

using namespace std;

int main()

{

int a, b, c, i, y;

cin >> a;

//int A[a];  В плюсах такого нет! если размерность массива заранее не предопределена(например int a=10),то компилятор такого не пропустит.Нужно использовать динамику

int *A = new int[a];

int *B = new int[a];

 

//for (i = 0; i{Где вы такой цикл For Нашли? почитайте про циклы в плюсах

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

 cin >> b;

 A[i] = b;

 cin >> c;

 B[i] = c;

}

for (int i = 0; i<a;i++) //вооще хз что вы пытались сделать циклом ниже

for (int y = i + 1; y<a;y++)

{

  if (B[y]>B[i] || B[y] == B[i] && A[i]>A[y])  

  {

   c = B[i];

   B[i] = B[y];

   B[y] = c;

   c = A[i];

   A[i] = A[y];

   A[y] = c;

  }

 }

 

 for (int i = 0; i < a; i++)

  cout << "A[" << i << "] = " << A[i] << "   B[" << i << "] = " << B[i] << endl;

 system("pause");

 return 0;

}

0,0(0 оценок)
Ответ:
tarlavinEgor
12.02.2022 13:22
PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

procedure СредняяЦифра(Число: int64; var Цифра: integer);

begin

 var СтроковоеПредставление := Число.ToString;

 var ЧислоРазрядов := СтроковоеПредставление.Length;

 var ПозицияЦифры := ЧислоРазрядов div 2 + 1;

 Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit

end;


begin

 var ЗаданноеЧисло: int64;

 Read(ЗаданноеЧисло);

 var ИскомаяЦифра: integer;

 СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);

 ИскомаяЦифра.Println

end.

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