X мальчиков и у девочек
всегда можно рассадить требуемым образом, кроме если количество мальчиков больше удвоенного числа девочек или если количество девочек больше удвоенного числа мальчиков
х - число мальчиков
у - число девочек
если х > 2*у - ответ НЕТ, ВЫХОД
иначе
{ если у > 2*х - ответ НЕТ, ВЫХОД
иначе - ответ ДА, ВЫХОД
}
Для решения данной задачи были использованы основные свойства над логическими операциями:
A->B = -A+B
A*1=A
A*0=0
AB+CB=A(B+C)
Var
a, b, c, d: real;
begin
write('Введите значения коэффициентов квадратного уравнения: ');
readln(a, b, c);
if a = 0 then
writeln('Это не квадратное уравнение!')
else begin
D := b * b - 4 * a * c;
if D > 0 then begin
writeln('Уравнение имеет два корня:');
writeln('x1 = ', (-b - sqrt(D)) / (2 * a));
writeln('x2 = ', (-b + sqrt(D)) / (2 * a));
end else if D = 0 then begin
writeln('Ураннение имеет один корень:');
writeln('x = ', -b / (2 * a));
end else
writeln('Уравнение не имеет действительных корней');
end;
end.
// 7
begin
var arr := ArrRandom(13);
arr := arr.OrderByDescending(x->x).ToArray;
arr.Println;
Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
'Count = ',arr.Where(x->x>10).Count);
end.
// 8
begin
var arr := ArrRandom(10);
Sort(arr);
arr.Println;
Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.
// 9
begin
var arr := ArrRandom(15);
arr := arr.OrderByDescending(x -> x).ToArray;
arr.Println;
Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.
Тип, объём, цена тип это оперативная или обычная, а так же ddr2 или 3, с EEC или без и т.д.
