Есть ответ 👍

Прочитать с экрана 30 имен, сосчитать сколько среди них имен петя . замечание-использовать только 3 переменных. abc a-текущ имя(строковый) b-переменная(кол-во имен петя) с-переменная(цель-сколько всего имен)

143
175
Посмотреть ответы 2

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

Danil244564
4,6(89 оценок)

Решение на паскале: var   a: string;   b, c: byte; begin   b : = 0;   c : = 0;   for c : = 1 to 30 do   begin       readln(a);       if a = 'петя' then b : = b + 1;   end;   write(b); end.
mrcanxer
4,4(63 оценок)

Определим функцию f (x) = x^2 - 5cos(x-1);     необходимо найти ноль функции  f (x) ,  т.е. значение  х, при котором  f(x) = 0; f(x) обратится в 0 , если cos(x-1) > 0  =>   - pi/2 < x < pi/2  =>   =>   (2 - pi)/2  < x < (2 + pi)/2 корня будет два.  определим интервал для первого корня.  левая граница  а = - 0,57,  правая граница  b = 1 для второго корня левая граница  а = 1,  правая  b = 2 корни будем находить методом деления пополам. интервал [ a, b]  делится пополам и определяется знак функции в этой точке, в зависимости от знака изменяется левая или правая граница интервала. программа будет следующей: function f(x: real): real; begin   f: =x*x-5*cos(x-1); end; { основная программа } var a,b,c,eps: real;       k: integer; { a - начало интервала, b - конец } begin   write('a = ');   readln(a);   write('b = ');   readln(b);   if f(a)*f(b)< 0 then   begin       write('точность вычислений eps: ');   readln(eps);       k: =1;       while abs(a-b)> eps do       begin           c: =(a+b)/2;             if f(c)< > 0 then           begin               if f(c)*f(b)< 0 then                   a: =c               else                   b: =c           end;           k: =k+1;       end;       writeln('корень = ',a: 12: 8);       writeln('количество итераций: ',k);   end   else         writeln('интервал задан неверно'); end. a = -0.57 b = 1 точность вычислений eps: 0.00001 корень =  -0.51726021 количество итераций: 19 a = 1 b = 2 точность вычислений eps: 0.00001 корень =    1.83345795 количество итераций: 18

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS