Question

Помогите с программой Паскаль
Найти значение дроби: в числителе - сумма чисел от 1 до 100 делящихся на 7,

а в знаменателе - сумма чисел от 100 до 500, делящихся на 17

Answer 1

Var
Ch,Z:real;
i:integer;

Begin
Ch:=0;
For i:= 1 to 100 do
    if i mod 7 = 0 then Ch:=Ch+i;
Z:=0;
For i:= 100 to 500 do
    if i mod 17 = 0 then Z:=Z+i;
WriteLn(Ch,'/',Z,' = ',Ch/Z);
End.

Результат работы программы:
735/7140 = 0.102941176470588

Answer 2

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=Range(7,100,7).Sum;
  var b:=Range(102,500,17).Sum;
  Writeln(a,'/',b,' = ',a/b)
end.

Результат
735/7140 = 0.102941176470588