Question

Это информатика, надо для всех 3 задач написать программу в паскале 1 Мальчик купил в магазине n порций мороженного по цене 1200 руб. и k плиток шоколада по цене 3800 руб. Сколько всего потратил мальчик. 2 Написать программу вычисления значения арифметического выражения. b=√(x^3+4)/√(8-3x) 3 Двое рабочих заработали вместе 900 рублей. Один работал 2 недели, а другой 4 недели. Сколько денег заработал каждый?

Answer 1

Ответ:

12-10/13=11.2

Объяснение:

извини но ето не точно

Answer 2

12-10/13 сколько будет?

Answer 3

Конечно, вот программы на языке Pascal для решения каждой из указанных задач:

1. Программа для вычисления общей суммы, которую потратил мальчик:

pascalCopy code
program CalculateTotalCost;

var
  n, k, totalCost: Integer;

begin
  write('Введите количество порций мороженного (n): ');
  readln(n);
  
  write('Введите количество плиток шоколада (k): ');
  readln(k);

  // Вычисляем общую стоимость
  totalCost := (n * 1200) + (k * 3800);

  writeln('Общая сумма, которую потратил мальчик: ', totalCost, ' руб.');
end.

2. Программа для вычисления значения выражения b = √(x^3+4)/√(8-3x):

pascalCopy code
program CalculateExpression;

var
  x, b: Real;

begin
  write('Введите значение x: ');
  readln(x);

  // Проверка на нулевой знаменатель
  if (8 - 3 * x) = 0 then
  begin
    writeln('Ошибка: Знаменатель равен нулю. Вычисление невозможно.');
  end
  else
  begin
    // Вычисляем значение выражения
    b := sqrt(x * x * x + 4) / sqrt(8 - 3 * x);

    writeln('Значение b = ', b);
  end;
end.

3. Программа для вычисления зарплаты для двух рабочих:

pascalCopy code
program CalculateSalaries;

var
  totalSalary, salary1, salary2: Integer;

begin
  write('Введите общую сумму зарплаты (900 руб.): ');
  readln(totalSalary);

  // Вычисляем зарплату для первого рабочего (работавшего 2 недели)
  salary1 := (totalSalary * 2) div 6;

  // Вычисляем зарплату для второго рабочего (работавшего 4 недели)
  salary2 := (totalSalary * 4) div 6;

  writeln('Первый рабочий заработал ', salary1, ' руб.');
  writeln('Второй рабочий заработал ', salary2, ' руб.');
end.

Эти программы помогут вам решить указанные задачи в Pascal. Вы можете ввести необходимые значения и получить результаты.