(5>30) v ( !(even(5) & (5<10) )
0 v ( 1 & 1) = 1
Истина
(8>30) v ( !(even(8) & (8<10) )
0 v ( 0 & 1 ) = 0
Ложь
(27>30) v ( !(even(27) & (27<10) )
0 v ( 1 & 0 ) = 0
Ложь
(42>30) v ( !(even(42) & (42<10) )
1 v ( 0 & 0 ) = 1
Истина
По какому предмету и 1 сор или 2
Если да, то
0001 - 1
0010 - 2
0100 - 4
1000 - 8
10000 - 16
25 = 16 + 8 + 1 = 11001
12 = 8 + 4 = 1100
//Блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111
Var
a,i,n,max,maxi:integer;
begin
readln(n);
for i:=1 to n do
begin;
readln(a);
if abs(a)>max then
begin;
max:=abs(a);
maxi:=i;
end;
end;
write('Максимальный по модулю элемент был введен ',maxi,'-м');
<span>end.
</span>
1,5МБ=1536Kб=1572864бай=12582912бит