М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
evaklchn
evaklchn
01.04.2022 02:12 •  Информатика

Объясните , как делать такое : найдите наименьшее натуральное число, удовлетворяющее неравенству: ( x×x < 40)-> ((x+3)×(x-9)> 3) -> это импликация

👇
Ответ:
nadir7207
nadir7207
01.04.2022
Т.К ЭТО ИМПЛИКАЦИЯ, ТО ВЫРАЖЕНИЕ ИСТИННО ТОГДА, КОГДА 1)ПЕРВАЯ СКОБКА=1 (ИСТИНА) И ВТОРАЯ СКОБКА =1
2)ЕСЛИ ПЕРВАЯ СКОБКА = 0 (ЛОЖЬ), ТО ВТОРАЯ М.Б. ЛЮБОЙ
1)ПРОВЕРИМ ПЕРВОЕ ПРЕДПОЛОЖЕНИЕ, Т.Е 1 СКОБКА = 1 И ВТОРАЯ =1
ВТОРАЯ СКОБКА РАВНА ЕДИНИЦЕ, КОГДА X>=10, ИНАЧЕ ВТОРАЯ СКОБКА БУДЕТ МЕНЬШЕ 0. Т.Е. В ПЕРОМ СЛУЧАЕ ОТВЕТ 10
2) РАССМОТРИМ ВТОРОЕ ПРЕДПОЛОЖЕНИЕ, КОГДА ПЕРВАЯ СКОБКА = 0. ЭТО МОЖЕТ ПРОИЗОЙТИ, КОГДА X=7. ТОГДА ПЕРВАЯ СКОБКА СТАНОВИТСЯ ЛОЖЬ И ВСЕ ВЫРАЖЕНИЕ ПРИ ЭТОМ ИСТИННО.7<10
ОТВЕТ X=7
4,7(66 оценок)
Открыть все ответы
Ответ:
aptemacko
aptemacko
01.04.2022
Var 
a: array[1..n] of integer; 
k, i, m: byte; 
min: integer;

begin 
Write('Razmer massiva: '); 
Readln(k); 
if (k < 0) or (k > 100) then     
begin       
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');       
Readln;       
Exit;     
end; 
Randomize; 
Writeln('Ishodn. massiv: '); 
for i:=1 to k do     
begin       
a[i]:=Random(101)-50;       
write(a[i]:4);     
end; 
min:=a[1]; 
for i:=2 to k do   
if a[i] < min then       
begin         
min:=a[i];         
m:=i;       
end; 
a[m] := a[1]; 
a[1] := min; 
Writeln; 
Writeln('Min element = ', min:4, ' v posicii ', m:3); 
Writeln('Rezult. massiv: '); 
for i:=1 to k do     
write(a[i]:4); 
readln;
end.
4,5(77 оценок)
Ответ:
visaenko1974
visaenko1974
01.04.2022
Program chik;
var a:array[1..100,1..100]of integer;
n,m,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
for j:=m downto 1 do
if(a[i,j] mod 2=0)then a[i,j]:=a[i,j]+a[i,1];
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
n,m-размеры матрицы
a[i,j]-элементы матрицы
пример
n=3 m=3
1 2 3
4 5 6
7 8 9

вывод:
1 3 3 
8 5 10
7 15 9 
a[1,2]:=a[1,2]+a[1,1]=2+1=3
a[2,1]:=a[2,1]+a[2,1]=4+4=8
..
но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j:=m downto 1 
делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась
Надеюсь всё понятно
4,5(50 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ