Const Sz = 1000; var a: array [1..Sz] of integer; a1: array [1..Sz] of integer; a2: array [1..Sz] of integer; a3: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for k:=1 to N do begin read(a[i]); readln(a1[i]); if (a[i]<>0) then a3[i]:=1 else a3[i]:=0; end; for k:=1 to N do begin if(a3[i]<>0) then begin for i:=1 to i do begin if(a3[k]=0) then d[i]:=1; if (a2[k]=i) then d[k]:=0; end; writeln(a3[i]) end;end;end. вроде так
Суждение: 1. Все сосны являются деревьями. 2.Ни один кит - не рыба. 3.Все караси являются рыбами. 4. Все розы - это цветы. 5. Все мухи - это птицы.
Умозаключения: 1. Ты задал вопрос, вопрос задают когда не знают. Умозаключение: ты не знаешь. 2. Все прямоугольники-параллелограммы. Квадрат - это прямоугольник. Умозаключение: квадрат - это параллелограмм. 3. Все люди смертны. Сократ - человек. Умозаключение: Сократ смертен. 4. Звезды взрываются. Солнце - звезда. Умозаключение: Солнце взорвется. 5. У треугольника все углы равны. Умозаключение: треугольник равноугольный
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
