Question

Нужно на паскале решить 1. Найти сумму ряда 5^{2} + 10^{2} + 15^{2} + … n^{2} 2. Объем воды в сосуде первоначально был v литров.Каждые 2,5 часа его количество увеличивалось в 2 раза.Сколько литров воды будет в сосуде через 30 часов?3. Вычислить s = n! + m!, где n и m - целые положительныечисла, n <> m.4. Дана последовательность из n чисел, вводимых склавиатуры. Найти среднее арифметическое отрицательныхчисел.5. Дан набор ненулевых целых чисел; признак егозавершения — число 0 Вывести сумму всех положительныхчетных чисел из данного набора. Если требуемые числа внаборе отсутствуют, то вывести 06. Поменять в массиве последний элемент и максимальныйэлемент.

Answer 1

1:

var s:longint;

   i,n:byte;

begin

   write('Введите количество членов ряда: '); readln(n);

   for i:=1 to n do s:=s+sqr(i*5);

   write(s);

end.

2:

var v:longint;

   i,n:real;

begin

   write('Введите первоначальный объём (л): '); readln(v);

   n:=30;

   i:=2.5;

   while i <= n do begin

       v:=2*v;

       i:=i+2.5;

   end;

   write('Через 30 часов будет ', v, ' литров');

end.

3:

var nf,mf:longint;

   i,n,m:byte;

begin

   nf:=1;

   mf:=1;

   write('Введите n: '); readln(n);

   write('Введите m: '); readln(m);

   for i:=1 to n do nf:=nf*i;

   for i:=1 to m do mf:=mf*i;

   write('n!+m!=', nf+mf);

end.

4:

var x,s:integer;

   c:byte = 0;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if x < 0 then begin

           s:=s+x;

           inc(c);

       end;

   end;

   if c = 0 then write('Ни одного отрицательного числа не было введено')

   else write('Среднее арифметическое отрицательных значений равно: ', s/c:0:2);

end.

5:

var x,s:integer;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if (x mod 2 = 0) and (x > 0) then s:=s+x;

   end;

   if s = 0 then write('Ни одного чётного положительного числа не было введено')

   else write('Сумма чётных положительных чисел равна: ', s);

end.

6:

var a:Array[1..10] of integer;

   max_v:integer;

   i,max_i:byte;

begin

   a[1]:=random(100);

   max_v:=a[1];

   max_i:=1;

   write(a[1],' ');

   for i:=2 to length(a) do begin

       a[i]:=random(100);

       if a[i] > max_v then begin

           max_v:=a[i];

           max_i:=i;

       end;

       write(a[i],' ');

   end;

   if max_i <> length(a) then begin

       a[max_i]:=a[length(a)];

       a[length(a)]:=max_v;

   end;

   writeln();

   for i:=1 to length(a) do write(a[i], ' ');

end.

Answer 2

Давайте рассмотрим каждое задание по отдельности.

Задача 1:

Найти сумму ряда \(5^{2} + 10^{2} + 15^{2} + \ldots + n^{2}\).

program SumSeries;
var
  n, i: integer;
  sum: longint;
begin
  write('Введите значение n: ');
  readln(n);

sum := 0;
  for i := 1 to n div 5 do
    sum := sum + sqr(5 * i);

writeln('Сумма ряда: ', sum);
end.

Задача 2:

Объем воды в сосуде, начально \(v\) литров, увеличивается в 2 раза каждые 2.5 часа. Найти количество воды через 30 часов.

program WaterVolume;
var
  v, t, i: real;
begin
  write('Введите начальный объем воды в литрах: ');
  readln(v);

t := 30;  // время в часах

for i := 1 to t / 2.5 do
    v := v * 2;

writeln('Количество воды через 30 часов: ', v:0:2, ' литров');
end.

Задача 3:

Вычислить \(s = n! + m!\), где \(n\) и \(m\) - целые положительные числа, \(n \neq m\).

program FactorialSum;
var
  n, m, s: integer;
  i: integer;
begin
  write('Введите значение n: ');
  readln(n);
  write('Введите значение m (не равное n): ');
  readln(m);

// Вычисление факториала
  function Factorial(x: integer): longint;
  var
    f: longint;
    i: integer;
  begin
    f := 1;
    for i := 1 to x do
      f := f * i;
    Factorial := f;
  end;

s := Factorial(n) + Factorial(m);

writeln('Сумма факториалов: ', s);
end.

Задача 4:

Дана последовательность из n чисел. Найти среднее арифметическое отрицательных чисел.

program AverageNegative;
var
  n, count, sum, num: integer;
  average: real;
begin
  write('Введите количество чисел в последовательности: ');
  readln(n);

count := 0;
  sum := 0;

for i := 1 to n do
  begin
    write('Введите число: ');
    readln(num);

if num < 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;

if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее арифметическое отрицательных чисел: ', average:0:2);
  end
  else
    writeln('Отрицательных чисел в последовательности нет.');
end.

Задача 5:

Дан набор ненулевых целых чисел, признак окончания - число 0. Вывести сумму всех положительных четных чисел.

program SumPositiveEven;
var
  num, sum: integer;
begin
  sum := 0;

repeat
    write('Введите число (0 для завершения): ');
    readln(num);

if (num > 0) and (num mod 2 = 0) then
      sum := sum + num;
  until num = 0;

writeln('Сумма положительных четных чисел: ', sum);
end.

Задача 6:

Поменять в массиве последний элемент и максимальный элемент.

program SwapMaxAndLast;
var
  arr: array[1..100] of integer;
  n, i, maxIndex, maxVal, temp: integer;
begin
  write('Введите размер массива: ');
  readln(n);

// Ввод элементов массива
  for i := 1 to n do
  begin
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;

// Находим максимальный элемент
  maxIndex := 1;
  maxVal := arr[1];
  for i := 2 to n do
  begin
    if arr[i] > maxVal then
    begin
      maxVal := arr[i];
      maxIndex := i;
    end;
  end;

// Меняем последний элемент и максимальный элемент местами
  temp := arr[n];
  arr[n] := arr[maxIndex];
  arr[maxIndex] := temp;

// Вывод измененного массива
  writeln('Массив после замены:');
  for i := 1 to n do
    write(arr[i], ' ');
end.

Надеюсь, это поможет! Если у вас есть какие-либо вопросы или нужны дополнительные пояснения, дайте мне знать.