Помогите с программой Паскаль

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

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

Question

Информатика

Влас

11 августа, 10:21

Помогите с программой Паскаль

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

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

+2

Ответы (1)

Знаете ответ на вопрос?

Тимаха · 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

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

Помогите с программой Паскаль

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

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