Question

Подсчитать сумму всех частных от деления на 3 чисел в интервале от 1 до 5 на Pascal

Answer 1

Ответ:

program Summa;

var

 i: Integer;

 s: Double;

begin

 s := 0;

 for i := 1 to 5 do begin

   s := s + i / 3;

 end;

 WriteLn ('Сумма = ', s :15 :10);

 ReadLn;

end.

Answer 2

Вот пример кода на Pascal для подсчета суммы всех частных от деления на 3 чисел в интервале от 1 до 5:

pascalCopy code
program SumOfQuotients;

var
  num, sum, quotient: integer;

begin
  sum := 0;
  
  for num := 1 to 5 do
  begin
    quotient := num div 3;
    sum := sum + quotient;
  end;
  
  writeln('Сумма всех частных от деления на 3 чисел в интервале от 1 до 5 равна: ', sum);
end.

Результат выполнения программы будет следующим:

Copy code
Сумма всех частных от деления на 3 чисел в интервале от 1 до 5 равна: 3

Таким образом, сумма всех частных от деления на 3 чисел в интервале от 1 до 5 равна 3.