Есть ответ 👍

Запрос Найдено страниц
(в тысячах)
5200
Пушкин | Лермонтов
Лермонтов
Пушкин & Лермонтов
2100
300
ответ:
Информатика

131
235
Посмотреть ответы 1

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

lol6633
4,6(19 оценок)

Вот! вообщем там много.

label 1, 2, 3, 4, 5, 6, 7, 8, 9;

var

  i, x, m, n, k: integer;

  s: real;

  a: array of real;

begin

  7:

  writeln('выберите действие: ');

  writeln('1)сложение');

  writeln('2)вычитание');

  writeln('3)умножение');

  writeln('4)деление');

  writeln('5)возведение в степень');

  writeln('');

  8:

  write('выбор > > > ');

  readln(x);

  writeln('');

  case x of

      1:

          begin

              write('введите количество слагаемых > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              for i : = 0 to m - 1 do

              begin

                  write('введите слагаемое № ', i + 1, ' > > > ');

                  readln(a[i]);

                  s : = s + a[i];

              end;

              writeln('');

              write(a[0]);

              for i : = 1 to m - 1 do

                  write(' + ', a[i]);

              write(' = ', s);

              writeln('');

              writeln('');

              1:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 1;

                  end;

              end;

          end;

      2:

          begin

              write('введите количество элементов > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              write('введите уменьшаемое > > > ');

              readln(a[0]);          

              for i : = 1 to m - 1 do

              begin

                  write('введите вычитаемое № ', i, ' > > > ');

                  readln(a[i]);                  

              end;

              writeln('');

              write(a[0]);

              s : = a[0];

              for i : = 1 to m - 1 do

              begin

                  s : = s - a[i];

                  write(' - ', a[i]);

              end;

              write(' = ', s);

              writeln('');

              writeln('');

              2:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 2;

                  end;

              end;                            

          end;

      3:

          begin

              write('введите количество множителей > > > ');

              readln(m);

              writeln('');

              s : = 1;

              setlength(a, m);

              for i : = 0 to m - 1 do

              begin

                  write('введите множитель № ', i + 1, ' > > > ');

                  readln(a[i]);

                  s : = s * a[i];

              end;

              writeln('');

              write(a[0]);

              for i : = 1 to m - 1 do

                  write(' * ', a[i]);

              write(' = ', s);

              writeln('');

              writeln('');

              3:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 3;

                  end;

              end;                          

          end;

      4:

          begin

              write('введите количество элементов > > > ');

              readln(m);

              writeln('');

              s : = 0;

              setlength(a, m);

              write('введите делимое > > > ');

              readln(a[0]);          

              for i : = 1 to m - 1 do

              begin

                  9:

                  write('введите делитель № ', i, ' > > > ');

                  readln(a[i]);

                  if a[i] = 0 then

                  begin

                      writeln('делить на 0 нельзя! ');

                      goto 9;

                  end;

              end;

              writeln('');

              write(a[0]);

              s : = a[0];

              for i : = 1 to m - 1 do

              begin

                  s : = s / a[i];

                  write(' / ', a[i]);

              end;

              write(' = ', s);

              writeln('');

              writeln('');

              4:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 4;

                  end;

              end;        

          end;

      5:

          begin

              write('введите число которое требуется возвести в степень > > > ');

              readln(k);

              write('введите необходимую степень > > > ');

              readln(m);

              writeln('');

              s : = exp(m * ln(k));              

              writeln('');

              writeln(k, '^', m, ' = ', s);

              writeln('');

              writeln('');

              5:

              writeln('выберите действие: ');

              writeln('1)заново');

              writeln('2)выйти');

              writeln('');              

              write('выбор > > > ');

              readln(n);

              case n of

                  1:

                      begin

                          writeln('');

                          writeln('');

                          goto 7;

                      end;

                  2: exit

              else

                  begin

                      writeln('');

                      writeln('ошибка! ');

                      writeln('попробуйте снова! ');

                      writeln('');

                      goto 5;

                  end;

              end;                  

          end

  else

      begin

          writeln('');

          writeln('ошибка! ');

          writeln('попробуйте снова! ');

          writeln('');

          goto 8;

      end;

  end;  

end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS