Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 1, поскольку меньшие значения уменьшают произведение.

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

begin
var a:=SeqRandom(ReadInteger('n='),0,99).Select(t->0.1*t).ToArray;
a.Println.Where(t->t>=1.0).Println
end.

Пример
n= 15
1.3 2.8 0.7 5.1 1 0.9 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9
1.3 2.8 5.1 1 7.9 5.5 3.4 3.6 9.1 2.7 2.5 9 7.9

0 0

4 года назад

Составить программу: 1)вычисление натуральных чисел кратных 5, от 10 до 40

tms [19.1K]

Program N_1;
var a,b:integer;
begin
b:=0;
begin
for a:=10 to 40 do
if a mod 5 = 0 then
b:=b+1;
end;
writeln('Количество чисел, кратных 5 -', b)
end.

Программа использует "a" , как счетчик от 10 до 40, а "b" , как количество чисел, если число делится на пять без остатка, то количество чисел +1,
Ответ программы: 7 чисел

0 0

4 года назад

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

Помоги по оивт срочно

Анастасия120893 [2]

program krug;

var r:real;

begin

write('введите радиус: ');

readln(r);

writeln('С=',2*3.14*r);

writeln('S=',3.14*r*r);

readln;

end.

кажись так

0 0

4 года назад