Помогите с программкой Паскаль Отыскать значение дроби: в числителе - сумма

Question

Помогите с программкой Паскаль Отыскать значение дроби: в числителе - сумма

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

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

Задать свой вопрос

Арина
Информатика
2019-09-07 13:56:16
1
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Привести пример по каждой манипуляции в общении(quot;меня рвёт на частиquot;,quot;казанская сиротаquot;

казак тили 399 жаттыг

вычисли периметр прямоугольника с доинами сторон 4см и 12 см

помогите решить, пожалуйста:5+a/3a + 1-2a/a

Кто знает британский помогите 9 , 11 СПАСИБО

Составить тест 7 вопросов по европейской конвенции прав человека.Помогите пожалуйста вопрос

твр на тему мо враження вд твору о.грна пурпуров втрила та

1) Найти четвёртый член геометрической прогрессии, если b1=10; q=32) Отыскать знаменатель

Помогите решить разумные уравнения.

Найди слово в предложении, состав которого подходит схеме(корень, суффикс, окончание):

Милена Гранчак · Answer 1 · 2019-09-07 13:58:27+3:00

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 · 2019-09-07 14:06:56+3:00

// 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

О проекте

Помогите с программкой Паскаль Отыскать значение дроби: в числителе - сумма

Добро пожаловать!