// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

5)
begin
Writeln('Max=',ReadSeqReal('Введите числа:',ReadInteger('n=')).Max)
end.

Пример
n= 8
Введите числа: 4.12 5 1.48 -6 0 7.3 5.12 0.005
Max=7.3

3)
begin
Writeln('Sum = ',Range(1,ReadInteger('n ='),2).Sum)
end.

Пример
n = 5
Sum = 9

0 0

4 года назад

1)Определить, является ли числоа делителем числа b. Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чи

Karelja Topin [89.2K]

0 0

4 года назад

Древний носитель информации, сделанный из кожи животных.

Евгеша 26 [49]

Книга лялялляляляляля

0 0

4 года назад

Прочитать ещё 2 ответа

2) Каково время (в минутах) передачи полного объема данных по каналу связи, если известно, что передано 9000 Мбайт данных, приче

Игорь12345

Пусть х - время в секундах.

Тогда

(1/3 * 60/8 мбайт/с * x) с - время за треть времени)

(2/3 * 90/8 мбайт/с * x) с - время за две третти времени

Тогда уравнение получается

1/3 * 60/8 * x + 2/3 * 90/8 * x = 9000

2,5x + 7,5x = 9000

10x = 9000

x = 900

Получается 900 секунд или 900/60 = 15 минут)

0 0

4 года назад