Подсчитать сумму всех частных от деления на 3 чисел - вопрос №9989789315 от zakharizh2001 31.03.2020 05:49

Question

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

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