Ввести с клавиатуры 8 чисел (2, 3, 4, 10, 5, 8, 7, 20) чисел. Найти произведение чисел < 5 Даны числа: -2, 10, 6, -5, 14,- 8
Алексей Мягков
1)Const n=8;
Var p, i, a:Integer ;
Begin
Write ('Введите влсемь чисел') ;
P:=1;
For i:=1 to N do begin
Read(a) ;
If a<5 then P:=p*a;
End;
Writeln('произведение чисел меньших пяти ', p) ;
End.
2)Const n=6;
Var p, i, a:Integer ;
Begin
Write ('Введите шесть чисел') ;
P:=0;
For i:=1 to N do begin
Read(a) ;
If a<0 then P:=p+a;
End;
Writeln('сумма чисел меньших нуля ', p) ;
End.
3)Const n=100;
Var i, s:Integer ;
Begin
S:=0;
For i:=1 to N do begin
If i mod 4=0 then s:=s+1;
End;
Writeln(s) ;
End.
16*40=640 символов на одной строке
640*40=25600 символов на 40 строках
25600*16=409600-символов на всех страницах
1)смешанная:<span>оркестр,<span>библиотека</span></span>
2)<span>природная:<span>болото,<span>вулккан,<span>степь</span></span></span></span>
<span>3)<span>техническая:<span>самолёт</span></span></span>
Сочетания без повторения на N/40 раз. Создаешь динамический массив или вектор(хз на каком языке ты пишешь),и передаешь его в ф-ию ,которая меняет его в соответстиви с формулой сочетания.Типо while(sochetanie(arr,size)=true)
{
for(int i=0;i<size;i++)
{
if(arr[i]==1);
//прибавляем 40
if(arr[i]==2)
//прибавляем 55
if(sum>N(
//вычитаем последнее сложение
}
}