Определите при каком наименьшем введенном значении переменной s программа выведет число 15

This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode characters

#Для какого наименьшего целого числа А выражение (x ∙ y > A) / (x > y) / (x < 8) тождественно ложно, т.е. принимает значение 0
#при любых целых положительных x и y?
for a in range ( 1 , 100 ):
t = 0
for x in range ( 1 , 100 ):
for y in range ( 1 , 100 ):
if (( x * y > a ) and ( x > y ) and ( x < 8 )) == True :
t += 1
break
if t == 1 :
break
if t == 0 :
print ( a )
# На числовой прямой даны два отрезка: P = [44; 49] и Q = [28; 53]. Укажите наибольшую возможную длину такого отрезка A, что формула
# тождественно истинна, то есть принимает значение 1 при любом значении переменной х.
p = [ i / 10 for i in range ( 440 , 490 + 1 )] # Точно также тут могут быть и множества
q = [ i / 10 for i in range ( 280 , 530 + 1 )] # Граничные точки умножили на 10
def f ( x , a ):
return (( x in a )
a = set ([ i / 10 for i in range ( 10000 )])
for x in [ i / 10 for i in range ( 10000 )]:
if not f ( x , a ):
a . remove ( x ) # Удаляется значение из a
print ( sorted ( a ))
# На числовой прямой даны два отрезка: P = [4; 15] и Q = [12; 20]. Укажите наименьшую возможную длину такого отрезка A, что формула
# тождественно истинна, то есть принимает значение 1 при любом значении переменной х.
p = [ i / 10 for i in range ( 40 , 150 + 1 )]
q = [ i / 10 for i in range ( 120 , 200 + 1 )]
def f ( x , a ):
return (( x in p ) and ( x in q ))
a = set ()
for x in [ i / 10 for i in range ( 10000 )]:
if not f ( x , a ):
a . add ( x )
print ( sorted ( a ))
#. ВАЖНО. При решении отрезков, важно смотреть идут ли все значения подряд и нет ли обывов
#Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m».
#Для какого наибольшего натурального числа А формула тождественно истинна (то есть принимает значение 1 при любом натуральном значении переменной x)?
#¬ДЕЛ(x, А) → (ДЕЛ(x, 6) → ¬ДЕЛ(x, 4))
def dell ( n , m ):
return n % m == 0
for A in range ( 1 , 20000 ):
t = 1
for x in range ( 1 , 20000 ):
if (( not ( dell ( x , A )))
t = 0
break
if t == 1 :
print ( A )
#Обозначим через m 5 = 11102 29 ≠ 0 → (x А ≠ 0)
for A in range ( 1 , 20000 ):
t = 1
for x in range ( 1 , 20000 ):
if (( x https://gist.github.com/VladHub18/52968c6fa9b396c84aa19def741f5e36″ target=»_blank»]gist.github.com[/mask_link]

Задание 6 | ЕГЭ по информатике | ДЕМО-2022

Демонстрационный вариант егэ по информатике 2022, задание 6,при каком наибольшем значении переменной

Используя средства языка Паскаль ,сформировать массив из 15 чисел по формуле Ai=cos 5i-1/корень из i^3+9. Написать функцию для подсчета кол-ва элементов массива ,значения которых меньше среднего арифметического его элементов

  • 09 May 2021
  • Ответ оставил: DonPedro80

const
n=15;
type
tm=array [1..n] of real;

function fk(a:tm):integer;
var
i,k:integer;
m:real;
begin
m:=0;
for i:=1 to n do
m:=m+a[i];
m:=m/n;
k:=0;
for i:=1 to n do
if a[i] fk:=k
end;

var
a:tm;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=cos(5*i)-1/sqrt(i*i*i+9);
Write(a[i]:13:9)
end;
Writeln;
Writeln(‘Элементов меньше среднего: ‘,fk(a))
end.

Нравится —> 0

  • НЕ НАШЛИ ОТВЕТ?

Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (25.06.2023) наш сайт содержит 16353 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Нажимая на кнопку «Ответить на вопрос», я даю согласие на обработку персональных данных
Ответить на вопрос

Последние опубликованные вопросы

Предметы

  • Алгебра
  • Английский язык
  • Беларуская мова
  • Беларуская мова
  • Биология
  • География
  • Геометрия
  • Другие предметы
  • Другое
  • Информатика
  • История
  • Қазақ тiлi
  • Литература
  • Математика
  • Обществознание
  • Право
  • Русский язык
  • Українська література
  • Українська мова
  • Физика
  • Химия
  • Экономика

Источник: edubirdie.pro

Рейтинг
( Пока оценок нет )
Загрузка ...
EFT-Soft.ru