Есть ответ 👍

Куроку: 1. найти произведение 4-х целых чисел. 2. в углу прямоугольного двора размером а на стоит прямоугольный дом размером на л. вычислить длину забора / и свободную площадь двора school 3. в корзине лежат 4-ре вида шаров. красных шаров - к, зеленых - синих желтых, которых в 2 раза больше, чем три предыдущих вида. сколько всего шаров находится в корзине (использовать различные способы ввода)? 4. вычислить объем цилиндра v = r2 h. 5. вычислить объем пирамиды v = -h. вычислить объем конуса v = - найдите значения логических выражений: (1 v 1) v (1 v 0) = ((1 v 0) v 1) v 1 = ((1 v 0) (1/a1)) (0 v 1) = ((1 / 1) - (1 - 0)) v = (1 v 1) - (1 v 0) = (1 - 1) v (1 - 1)

286
462
Посмотреть ответы 1

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


1. 

program helloworld; var i: integer; var a,b,s: double; //a - выручка за день, b - план за день, s - зарплата всего

begin

      s: =0;     for i: = 1 to 28 do    begin      write('день '); write(i); writeln(': ');       writeln('введите значение ежедневной выручки: ');       readln(a);       writeln('введите значение ежедневного плана: ');       readln(b);    

        if a> b then      begin      a: = a+a*0.2;       end      else a: = 1500;    

        s: = s + a;

  end;

  write('зарплата составила: '); writeln(s: 15: 2);

end.

2.

program helloworld;

var i: integer;

var a,s: double; //s - итого в процентах, a - еда в граммах

begin

      s: =0;

      for i: = 1 to 28 do

      begin

        write('день '); write(i); writeln(': ');

        writeln('укажите сколько грамм съедено: ');

        readln(a);

       

        if a> 100 then

        begin

          s: = s+3;

          end

        else s: = s+2;

     

      end;

 

      write('подрос на (%): ');

      writeln(s: 15: 2);

  end.

3.

program helloworld;

var i: integer;

var a,b,s: double; //a - время в воде в день, b - время на суше в день, s - пройденный путь

begin

      s: =0;

      for i: = 1 to 7 do

      begin

        write('день '); write(i); writeln(': ');

        writeln('укажите время в воде: ');

        readln(a);

        writeln('укажите время на суше: ');

        readln(b);

        s: = s+(a*80 + b*20);

      end;

      write('пройденный путь: ');

      writeln(s: 15: 2);

end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS