x1 x2 r
0 0 1
0 1 1
1 0 0
1 1 1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0 0 0
0 1 0
1 0 0
1 1 1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.
(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая буква имени согласная
1) Лариса
2) Сергей
3) Геннадий
4)Елена
Теперь по вариантам:
1) Лариса
Получается (1-->0)^0=0^0=0, не подходит
2) Сергей
(1-->0)^1=0^1=0, не подходит
3) Геннадий
(1-->0)^1=0^1=0, не подходит
4) Елена
(0-->1)^1=1^1=1, подходит
ответ: 4) Елена
По идее работает правильно:
program basketbol;
var a:array[1..12] of integer;
i,c,g:integer;
begin
g:=0;
for i:=1 to 12 do
readln(a[i]);
for i:=1 to 12 do
if a[i] > c then c:=a[i];
writeln();
for i:=1 to 12 do
if a[i] = c then g:=g+1;
for i:=1 to g do writeln(c);
for i:=1 to 12 do begin
if a[i] <> c then writeln(a[i]);
end;
end.