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

Помогите с программой Паскаль Найти значение дроби: в числителе - сумма чисел от 1 до 100 делящихся на 7, а в знаменателе - сумма чисел от 100 до 500, делящихся на 17
Гость
Ответ(ы) на вопрос:
Гость
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
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы