Дизъюнкция, дизъюнкция, конъюнкция
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Program XY5;
var
x,y: real;
begin
var s:='**** -=Alphaeus=- ****';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите координаты точки:');
write('X='); readln(x);
write('Y='); readln(y);
if ((x>=0) and (y>=0) and (x*x+y*y<=16)) or ((x>=0) and (y<=0) and (x*x+y*y<=25)) then
writeln('TRUE (то есть точка (',x,',',y,') попадает в заштрихованную область) ')
else
writeln('FALSE (то есть точка (',x,',',y,') HE попадает в заштрихованную область) ');
end.