Подсчитать сумму всех частных от деления на 3 чисел - вопрос №9989789315 от someone5682 18.01.2022 07:27

Question

Информатика: Подсчитать сумму всех частных от деления на 3 чисел в интервале от 1 до 5 на pascal

someone5682 · Answer

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....