с информатикой. Произвести расчеты с клиентом за купленный товар с учетом времени оплаты, которая может осуществляться частью в форме предоплаты (в размере не менее 60% от всей стоимости товара), частью в более поздние сроки. Если покупатель не хочет заплатить за весь товар сразу, он может внести остаток суммы позже, но с наценкой, определяемой таблицей А1:Е2. Наценка на остаток составляет 1% при оплате в срок от 1 до 3 дней, 2% - на срок до 7 дней и т. д. Покупатель указывает сумму, которую он может внести сразу (не менее, чем указано в G2) и число дней (не более 15), через которое будет оплачен остаток. Остаток суммы с учетом наценок за кредит определяется в ячейке F6. В G6 находится полная сумма, вносимая покупателем за товар. В G10 вычисляется число крупных заказов, превышающих 50000 руб. Наценку на безналичную оплату найти функцией ГПР(). Контроль А6:А8: Товар={Мука, Масло, Сахар, Хлеб}. Форматирование 06:08: если Всего > 50 000 р. График: Товар - Всего.
x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:
не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)
В итоге:
не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)
Полученное неравенство будет истинно для четных x из промежутка (-oo;10).
Не нечетное число - это четное число, поэтому:
не(x - нечетное) равносильно (x - четное)
x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:
не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)
В итоге:
не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)
Полученное неравенство будет истинно для четных x из промежутка (-oo;10).
Наибольшее четное число из (-oo;10): 8
ответ: 8
Var i, n, k, sum:integer ;
A:array [1..100]of Integer ;
Begin
//Запрашиваем кол-во элементов массива
Write (' N=') ;read (n) ;
//Заполняем массив случайными значениями от 0 до 25
// И выводим его на экран
For i:=1 to N do begin
A[i]:=random(26);
Writeln (' A[', i, ']=', a[i]) ;
End;
//Обнуляем переменные
K:=0;sum:=0;
//В цикле находим элементы, которые больше 8
//и меньше 13,считаем их кол-во и сумму
For i:=1 to N do begin
If((a[i]>8) and(a[i]<13)) then begin
K:=k+1;
Sum:=sum+a[i];
End;
End;
//Ввводим результат на экран
Writeln(' Кол-во элементов больше 8 и меньше 13:',k);
Writeln(' Их сумма ', sum) ;
End.
Объяснение:
Строчки с двумя слешами в программу можешь не писать, это я сделал, для объяснения программы