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
156/2=78 (0)
78/2=39 (0)
39/2=19 (1)
19/2=9 (1)
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
Остатки от деления записываем в обратном порядке.Получаем: 10011100
156=10011100 (2)
Ответ: 4.
Развёрнутый ответ (решение) на всякий случай :)
Все формулы прописываем для товара А и далее растягиваем
Искомое значение - буква необходимого нам товара
Таблица - таблица, где прописаны товар и его цена/товар и его количество, выделяем без шапочки таблицы, не забывая поставить знак $, так как диапазон изменяться не будет
Номер столбца/номер строки - у нас второй столбец, вторая строчка, поэтому 2
Интервальный просмотр - Ложь, так как значения не отсортированы по возрастанию, нам нужно точное совпадение
Стоимость находим перемножая цену и количество
Продолжительность звучания вычислим по формуле:
t=N/b*f
где t- время звукозаписи (сек.),N- Объем диска (бит),b- разрядность (бит),f- частота дискретизации (Гц или 1/сек.)
t=(700*1024*1024*8)/16*32000=11468,8 сек
t=191,15 мин.
// PascalABC.NET 3.0, сборка 1128
begin
Writeln('Сумма чисел от 100 до 999 равна ',Range(100,999).Sum)
end.
<u><em>Тестовое решение:</em></u>
Сумма чисел от 100 до 999 равна 494550
