Есть ответ 👍

Дан массив действительных чисел N членов подсчитать сколько в нем отрицательных положительных и нулевых элементов​

230
427
Посмотреть ответы 2

Ответы на вопрос:


арналған қр сыбайлас жемқорлыққа қарсы күресу бөлімшесі күресу бөлімшесі күресу бөлімшесі күресу бойынша бағдарлама сіз білесіз ғой деп жазбандар да ұлттар бар ма


Type   digits=array[0..9] of byte; procedure rd(n: integer; var ad: digits; var f: boolean); { заполняет массив количеством повторений цифр числа n   f=true, если хоть одна цифра повторяется } var   i,d: byte; begin   for i: =0 to 9 do ad[i]: =0;   f: =false;   while n> 0 do begin       d: =n mod 10;       ad[d]: =ad[d]+1;       if ad[d]> 1 then f: =true;       n: =n div 10       end; end; var   i,j,n,k: integer;   a: digits;   f: boolean;   begin   for i: =1 to 2 do begin       write('n = '); read(n);       n: =abs(n); { против ввода отрицательных }       rd(n,a,f);       if f then begin           write('встречаются больше одного раза цифры ');           for j: =0 to 9 do               if a[j]> 1 then write(j,' ');           writeln           end       else writeln('все цифры в числе уникальны')       end end. пример n = 153632 встречаются больше одного раза цифры 3 n = 1030041 встречаются больше одного раза цифры 0 1 var   s,sr: string;   c: char;   i,j,n,p: byte;       begin   for i: =1 to 2 do begin       write('введите строку: '); readln(s);       n: =length(s);       sr: ='';       for j: =1 to n do begin           c: =s[j];           if pos(c,copy(s,j+1,n-j))> 0 then sr: =sr+c+' ';           end;       if length(sr)> 0 then writeln('встречаются больше одного раза символы ',sr)       else writeln('все символы в строке уникальны')       end end. пример введите строку: информатика встречаются больше одного раза символы и а введите строку: проблема все символы в строке уникальны

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS