Program massiv;
var a: array[1..10] of integer;
b,i,p: integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
writeln ('Введите число');
readln (b);
for i:=1 to 10 do
begin
if a[i]<b then
p:=p*a[i];
end;
for i:=1 to 10 do
write (a[i],' ');
writeln;
writeln ('Произведение элементов, меньших ',b,', равно ',p);
end.
Ответ:
240
Объяснение:
Представь себе цепочку из пяти бусинок, пусть их будет 3 цвета: синий, жёлтый и красный.
Пускай первая бусинка будет синего цвета, тогда остальные 4 могут быть красного или жёлтого, чтобы их посчитать нам нужно 2 возвести в 4 степень 2^4=16. (можешь проверить на листочке сам, если интересно)
Если синей будет вторая бусинка или третья ничего не изменится, в оставшихся 4 будет по 16 различных вариантов.
Значит, всего вариантов с синей бусинкой 16*5=80.
С красной и жёлтой бусинкой происходит та же история.
80*3=240
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
Мне кажется, что эти числа указаны примерно как 1,2,3.
Т.е. А-1 В-2 С-3.
Таким образом: 3,2,1 или С,В,А
Объяснение:
Вот таблица, горизонтальные не принимает;)