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

Answer 3

В программе на языке Паскаль мы можем решить данную задачу с помощью циклов и условных операторов.

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

program FractionValue;
var 
  numerator, denominator, i: integer;

begin
  numerator := 0;
  denominator := 0;

// Находим сумму чисел от 1 до 100, делящихся на 7
  for i := 1 to 100 do
  begin
    if (i mod 7 = 0) then
      numerator := numerator + i;
  end;

// Находим сумму чисел от 100 до 500, делящихся на 17
  for i := 100 to 500 do
  begin
    if (i mod 17 = 0) then
      denominator := denominator + i;
  end;

writeln('Значение дроби: ', numerator / denominator);
end.

В данной программе мы используем два цикла "for", чтобы просмотреть все числа в нужном нам диапазоне. В каждом цикле мы проверяем, делится ли текущее число на нужный делитель (7 для числителя и 17 для знаменателя). Если число делится на делитель без остатка, то мы добавляем это число к соответствующей переменной-счетчику.

По завершению работы циклов, мы выводим на экран значение дроби: значение числителя, поделенное на значение знаменателя.