Регистрация Спросить otvet5GPT
12320071
03.03.2020 02:32
Информатика
Есть ответ 👍

Pascal abc. найти сумму цифр числа, больших 5 ,

202
322
Посмотреть ответы 2

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

ваноумно
ваноумно
4,5(29 оценок)
Program name; var a,b,c: integer; begin readln(a,b,c); writeln('сумма введённых чисел: ', a+b+c); end. эта программа подсчитывает сумму трёх введёных чисел. program name; var a,b,c: integer; begin readln(a,b,c); if a+b+c> 5 then writeln('сумма введённых чисел: ', a+b+c) else writeln('сумма чисел должна быть больше пяти! '); end. а эта программа складывает только те числа, которые в сумме больше 5. выбирай, какой больше подходит
илья1948
илья1948
4,5(21 оценок)
Тут все const       handsfree = true; var       a: array[1..100] of real;       i, n: integer;       min, max: real;       sum, product, harmonic: real;       k: integer; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет элементов}       k : = 0;       for i : = 1 to n do               if a[i] > 5 then k : = k + 1;       writeln(k);             {минимум и максимум}       max : = a[1];       min : = a[1];       for i : = 1 to n do       begin               if max < a[i] then max : = a[i];               if min > a[i] then min : = a[i];       end;       writeln('max = ', max);       writeln('min = ', min);             {подсчет суммы и произведения и агригатов}       sum : = 0;       product : = 1;       harmonic : = 1;       k : = 0;       for i : = 1 to n do       begin               if true then {если нужен фильтр}               begin                       sum : = sum + a[i];                       product : = product * a[i];                       harmonic : = harmonic + 1 / a[i];                       k : = k + 1;               end;       end;       writeln('sum = ', sum);       writeln('product = ', product);       writeln('average = ', sum / n);       writeln('average (selected) = ', sum / k);       writeln('harmonic mean = ', n / harmonic);       writeln('harmonic mean (selected) = ', k / harmonic);             {изменение элементов}       for i : = 1 to n do       begin               if a[i] < 0 then                       a[i] : = abs(a[i]);               write(a[i], ' ');       end; end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS