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

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

Ответы 2

  • VarCh,Z:real;i:integer;BeginCh:=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
    • Автор:

      johanadcz
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years