Подсчитать сумму всех частных от деления на 3 чисел - вопрос №3159989287 от QwErTyUiOp123rdc 12.11.2022 06:38

Question

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

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