Question

4) Последовательно вводятся N чисел. Найти сумму всех положительных чисел среди них. 5) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней? Напишите пожалуйста решение на языке Паскаль, используя(если их надо использовать) циклы: цикл "пока" и цикл "до"

Answer 1

Четвёртая
vara,b,n,c:longint;beginread (n);for a:=1 to n dobeginreadln(c);
if c>0 then b:=c+b; end;write (b);end.

Answer 2

Задача 4: Найти сумму всех положительных чисел

Для решения этой задачи на языке Паскаль с использованием циклов "пока" и "до" можно следовать следующему алгоритму:

1. Инициализировать переменную `sum` со значением 0. Эта переменная будет использоваться для хранения суммы положительных чисел. 2. Ввести значение переменной `N`, которая будет содержать количество чисел, вводимых последовательно. 3. Использовать цикл "пока" для ввода чисел и проверки их положительности: - Ввести число `num`. - Если `num` положительное, то добавить его к переменной `sum`. 4. Вывести значение переменной `sum`, которая будет содержать сумму всех положительных чисел.

Пример решения на языке Паскаль:

program SumOfPositiveNumbers;
var
  N, num, sum: integer;
begin
  sum := 0;
  write('Введите количество чисел: ');
  readln(N);
  
  while N > 0 do
  begin
    write('Введите число: ');
    readln(num);
    
    if num > 0 then
      sum := sum + num;
      
    N := N - 1;
  end;
  
  writeln('Сумма положительных чисел: ', sum);
end.

Примечание: Пожалуйста, обратите внимание, что я предоставил решение на языке Паскаль, как вы запросили. Однако, язык Паскаль не является широко используемым в настоящее время, и его поддержка в различных средах программирования может быть ограничена. Если вам нужно решение на другом языке программирования, пожалуйста, уточните это.

Задача 5: Суммарный путь спортсмена за 7 дней

Для решения этой задачи на языке Паскаль с использованием циклов "пока" и "до" можно следовать следующему алгоритму:

1. Инициализировать переменную `distance` со значением 10. Эта переменная будет использоваться для хранения суммарного пути спортсмена. 2. Инициализировать переменную `day` со значением 1. Эта переменная будет использоваться для отслеживания текущего дня тренировок. 3. Использовать цикл "пока" для вычисления суммарного пути спортсмена за 7 дней: - Если `day` меньше или равно 7, то увеличить значение переменной `distance` на 10% от предыдущего значения `distance`. - Увеличить значение переменной `day` на 1. 4. Вывести значение переменной `distance`, которая будет содержать суммарный путь спортсмена за 7 дней.

Пример решения на языке Паскаль:

program TotalDistance;
var
  distance: real;
  day: integer;
begin
  distance := 10;
  day := 1;
  
  while day <= 7 do
  begin
    distance := distance + (distance * 0.1);
    day := day + 1;
  end;
  
  writeln('Суммарный путь спортсмена за 7 дней: ', distance:0:2, ' км');
end.

Примечание: Пожалуйста, обратите внимание, что я предоставил решение на языке Паскаль, как вы запросили. Однако, язык Паскаль не является широко используемым в настоящее время, и его поддержка в различных средах программирования может быть ограничена. Если вам нужно решение на другом языке программирования, пожалуйста, уточните это.