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

Пишет ошибку #include compilation terminated.

#include
#include
#include
#include

void main ()
{
char stroka[100];
int dlina=0;
for (int p=1; p!=0; p=2) //Цикл для проверки количества символов
{ //Если четное кол-во символов, то ввод еще раз
char a[100]; //Если нечетное кол-во символов, то BREAK.
CharToOem ("Введите строку длиной более 5 симолов (нечетное кол-во символов): \n", a);
printf("%s", a);
gets (stroka); //Введение строки.
dlina=strlen(stroka);
//Проверка строки на четность\нечетность
if (dlina%2)
{
char a[100];
CharToOem ("\nВы ввели строку:\n", a);
printf("%s", a);
printf ("%s\n\n", stroka);
break;
}
else
{
char a[100];
CharToOem ("Вы ввели строку с четным количеством символов! Попробуйте ещё раз!\n\n", a);
printf("%s", a);
p=1;
}
}

//преобразование строки stroka к строке заданного вида
int seredina = (dlina/2)+1;

char a[100];
CharToOem ("Получаем следующую строку: \n", a);
printf("%s", a);

//находит и печатает символы слева относительно сииметричного символа
for (int t=0; t {
if (stroka[t]==stroka[dlina-t-1])
printf ("%1.1s",&stroka[t]);
else printf(" ");//Не симметричные символы забивает пробелами
}
//печатет центральный символ
printf("%1.1s", &stroka[seredina-1]);

//находит и печатает символы справа относительно сииметричного символа
for (int t=seredina; t {
if (stroka[t]==stroka[dlina-t-1])
printf ("%1.1s",&stroka[t]);
else printf(" ");//Не симметричные символы забивает пробелами
}

getch(); //Пауза
}

👇
Открыть все ответы
Ответ:
ника3931
ника3931
31.10.2022
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(100,-20,20); a.Println;
  WritelnFormat('Положительных {0}, отрицательных {1}',
    a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.

Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54
4,6(10 оценок)
Ответ:
Russiansss
Russiansss
31.10.2022

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.

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