Очевидно, что в подмножество войдут сигналы, для которых значение будет не меньше 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 года назад

Определите номер подъезда и этажа девятиэтажного дома, если на каждом этаже по 4 квартиры и известен номер квартиры.

Валерикус [52]

Псевдокод:

N - номер квартиры

iTop = N div 4;

if(N mod 4 > 0) iTop++;

Npd = (iTop-1) div 9 + 1; // Подъезд

Net = (iTop-1) mod 9 + 1; // Этаж

0 0

4 года назад

1 Пожалуйста. Напишите программу

Лариса1978 [7]

Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.

0 0

4 года назад

Информатика(8класс)

Маришка9001

Ответ:

program HelloWorld;

var x1, y1, x2, y2, s: real;

begin

writeln('Введите x1 и y1: ');

readln(x1, y1);

writeln('Введите x2 и y2: ');

readln(x2, y2);

writeln;

s:= sqrt((x2-x1)+(y2-y1));

writeln('Площадь: ', s);

readln

end.

Объяснение:

Ввод каждого числа отдельно

0 0

4 года назад